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PRODUCT CODE: MAINDEC-11-O2RJc-A-0 
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THE INFORMATION IN THIS STATEMENT 15 SUBJECT TG CHANGE 

WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 
COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 

BCTUAL OISTRIBUTION OF THE SOFTHARE DESCRIBED IN THIS 
OOCUMENT WILL SE SUBJECT TO TERMS AND CONDITIONS TO 

BE ANNOUNCED ON SOME FUTURE DATE BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 

RELIABILITY OF ITS SOFTWARE ON EGUIPMENT WHICH IS 

NOT SUPPLIED BY DEC. 

THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER @ LICENSE 

TO USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 

INCLUSION OF DEC"S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 

SiSTEN. EXCEPT AS MAY OTHERWISE SE PROVIDED IN URZTING 
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i. ASSTRSCT 


THE RPOS.S-& HEAD ALIGNMENT VERIF 
oR REDS DISK Rive HEAD BLL IGNEN 
HE APPROPRIATE 
ALS CONTAINS A UTILITY ROUTINE 4 
WITHOUT DATA TRANSFERS. THE RANDOM SEEK uy 
TS EXERCISE THE DRIVE WITH THE ALIGNMENT FA 
QE-VERIFY HEAD ALIGNMENT. 


. HE BRO ska 

§,000 RANDOM ae 
TY BLLOWS THE OPERATOR 
IN Place and THEN 


eager ee 
0 


SOA 


RECUIREMENTS 


m | ESUIPMENT 
pOP= 11 PROCESSOR 
EM a 


ok M 
TE 


"ELETYP 

ne LOAD DEVICE 

KWii-L OR KWL1=P CLOCK L 
RHii OR RMPO WITH RPOY'S, RPCS’S, OF RPOS'S 
Gi TENMENT PACK (°CE’ PACK) 

"Dou" OR *DEDU’ FOR RFOS’S 

"PERCH’ FOR RPOS/6°S 


PRELIMINARY PROGRAMS 


THE RPOY/S “6 DISK ag i lt MUST SE_OFPERATION AND ALL CTHER 
PR =SRAMS IN THE SET FOR T HE SUSSYST EM MUST RUN SUC Petes Lvs 


om ences Ee Se ce 
te 


to 


LORDING PROCEDURE 


i 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ASSOLUT 
MADER OR IT MAY BE LOADED FROM THE APPROPRIGTE ‘XxxDP’ MEDIA 
SING, The ASsoctATED LOADER. THE PROGRAM MAY NOT QE INCLUDED 


4.3 STARTING ADDRESSES 


THE PROGRAM IS STARTED FROM LOCATION 290: 
OF THE RH11 OR RH7C0 WILL NCT BE CHANGED. 
C4 


THE PROGRAM IS STARTED FROM LOCATION 2 


1:8) IF THE ACORESS 
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OF THE QH11 OR RH7O IS TO BE CHANGED FROM THE PRELOADED VALU 
(SEE SECTION 4.4) 


4.2 PROGRAM $ OPERATION ACTION 
. 1. LOAD THE PROGRAM INTO MEMORY :SEE SECTION 3) 
2. LOAD ADDRESS 200 OR 204. 


3. SET THE SWITCHES AND PRESS “START 


4. PLACE AN ALIGNMENT DISK PACK ON THE DRIVE TO BE CHECKED AND 
T THE ORIVE IN WRITE PROTECT MODE. 


CYCLE UP THE DRIVE TO BE CHECKED. ALLOK SUFFICIENT TIME 
on THE ALIGNMENT PACK TO REACH OPERATING TEMPERATURE AND 

Q STABILIZE. REFER TO a th MAINTENANCE PROCEDURES 
He THE REQUIRED AMOUNT OF TIME. 


&. SELECT THE DRIVE TO BE CHECKED IN RESPONSE TO THE TYPEOUT 
ON THE TELETYPE. 


7. THE PROGRAM WILL ASK FOR THE MODE OF OPERATION: ENTER AN *A’ 
uF THE PROGRAM 2 TC BE USED FOR HEAD ALIGNMENT; ENTER A ‘VY’ 
F HEAD ALIGNMENT IS TO BE CH — OR ENTER AN’’E’ IF THE 

RANDOM SEEK UTILITY IS 70 BE R 


IF AN ’A’ IS ENTERED IN RESPONSE TO ve Fw gy! MODE MESSAGE 
THE PROGRAM WILL POSITION THE DRIVE TO THE ALIGNMENT CYLINDER: 
RPO4/S - CYLINDER 245; RPO& - CYLINDER 496. THE PROGRAM WILL 
nen ASK FOR A HEAD ADDRESS. The HEAD AD UNTIL A | BE 1aERS 


an 


co 


SELECTED. THE ALIGNMENT SEGUENCE MAY BE TERMINATED By Y TY PING 
A CONTROL C’; THE PROGRAM WILL RETURN TO THE DRIVE SELECTION 


ROUTINE 


3. iF THE PROGRAM IS BEING RUN IN a Real MODE AND SW< 92> 
TS SET, THE PROGRAM WILL ASK FOR HEAD AND CYLINDER ROURE 93 
(HEAD AND CYLINDER ADDRESSES ARE ENTERED IN DECIMAL.) WITH 
SW<02>, ONLY THE ALIGNMENT OF THE SPECIFIED HEAD WILL BE CHECKED. 


, yd THE OPERATOR HAS COMPLETED THE PRESENT DRIVE, CYCLE THE 
DRIVE tN +g A erect TEST BOX AND ALIGNM NMENT ae TO 


The ! ) BE KED. HAS 
STABILIZED, THE NEW DRIVE CAN BE SELECTED. IT IS NOT NECESSARY 
TG RESTART THE PROGRAM. 


4.3 ORIVE SELECTION 
ENTER A ORIVE NUMBER | iN RESPONSE 70 THE “ENTER DRIVE NUNGER: ° 


TYPECUT FROM THE PROGRAM. ONLY VALID DRIVE NUMSERS ( 
WILL BE EePEPTED BY THE PROGRAM. NOTE THAT THE ORIVE SETUP 


- 
i 
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PACK STABILIZATION) MUST HAVE 


TEST BOX ZONNECTION AND AL IGNMEN ( 
SELEC eB. 


M 
BEEN COMPLETED BEFORE A DRIVE I 
RHI - RH72 UNIBUS ADDRESSES 


THE PROGRAM ASSUMES THAT THE RH11 OR RH70 ADDRESSES START AT 
176700 AND Me THE VECTOR ADDRESS IS 254. THESE ADDRESSES MAY 


GE ROG R T 204. ENTER 
THE RH11/RH70 ADDRESS IN RESPONSE TO THE REQUEST FROM THE PROGRAM. 
OTHER UNIBUS ADDRESSES 


EN 
S 


Loe TRG CONTENTS FUNCTION 

2344 $TKS 1775$0 TTY KEYBOARD STATUS REGISTER 
1146 $TKB 177562 TY KEYBOARD BUF EGISTER 
115¢ $TPS 177564 TTY PRINTER STATUS REGISTER 
1152 $TPB i77556 TTY PRINTER BUFFER REGISTER 
1244 PKY 104 KWil-P CLOCK VECTOR ADDRESS 
1246 PKCS 172540 KW11-P CONTROL RE 

1250 PKB 17eS4e KWLI-P ¢ SET REGISTER 
l2Se PKC 172S44 KW11-P COUNTER REGI % 
igS4 LKY 100 KWil-i CLOCK VECTOR ADDRESS 
1256 LKS 177546 KW1i-L STATUS REGISTER 


WITCH REGISTER SETTINGS 


SW<15>=1...HALT ON ERR 

Sa<i3>=1... INHIBIT ERROR TYPEOUTS 
SH<(09>=1...LO0P ON ERROR 

SW<O2)=1...CHECK ALIGNMENT OF THE SPECIFIED HEAD 
SW<O1>=1...LOOP ON THE CUR 

SW<SO>s1.. “FYPEOLT ALL TRACK CENTER VALUES 


IF _THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

NOT PRESENT AND WILL USE A *SOFTWARE’ pa TSR PESISTER. THE 

"SOF TWARE’ SWITCH reel alee IS LOCATED AT LOCATION i76 (8). THE 
SETTINGS OF THE *SOFTWARE’ = 1 CHES ARE "CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY yt A * CONT Ol G’, THE PR Ree WILL 

4 HE "CONTROL G TIME EXCEP WHEN Li. wen an 


7 # THE 
i lg SWITCH VALUES ARE ENTERED AS AN OCTAL NONSER IN RESPONSE 
0 THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNINN NEW = 
EACH TIME SWITCH SETTING ARE ENTERED THE ENTIRE SWITCH REGISTER 


IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REOUIRED., "RUBOUT' AND 
"CONTROL U’ FUNCTIONS MAY BE ees TO CORRECT TYPING ERRORS 


me ee + ne ee ee ee 
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DURING SWITCH ENTRY. 
aN PRO QoESSORS WITH HARDWAR stare H REGISTERS THE ‘SOFTWARE’ SWITCH 
REGISTER MAY BE USED. IF NOS BLL 16 SUITCHES IN THE 
"HP? POSITION, ALL SWITCH ae reteR REFERENCES W THE 
poOETHARE RESISTER AND THE PROCEDURES RESCRIBED ara ws 

ERRORS 


TEST ERRORS 
RPOW/S: 


THE PROGRAM CHECKS THAT EACH HEAD IS WITHIN + OR - 150 MICRO-INCHES 
ORO TRACK FOR INGER Aen fea tent WITHIN + OR - 359 


THE 
THE HEAD RELATIVE TO THE PERC INE “CIF SW<OO>= ACT 
RL IGNNENT OF EACH HEAD uate NE TIDES OUT; HEADS aut or TOLERANCE 
ILL NOT BE IDENTIFIED. ) 


RPOE: 


THE PROGRAM CHECKS THAT EACH HEAD IS WITHIN + OR - 75 NICRO-INCHES | 
FROM THE TRACK CENTERLINE FOR CYLINDER 436. AND IS WITKIN + OR - 175 
MICRO-INCHES FOR CYLINDER S 8 AND 809. IF A HEAD IS FOUND THAT 15 
NOT WITHIN THESE TOLERA NCES AN ERROR MESSAGE 1S TYP THE ERROR 
MESSAGE IDENTIFIES THE CYLINDER, HEAD, AND THE AcTURE “bos it TON OF 
THE HEAD RELATIVE TO HE AE ‘CEN ENTER INE, CIF SW<O9>=1. THE ACTUAL 
ALIGNMENT OF EACH HEAD WILL BE TYPED CUT; HEADS ut OF TOLERANCE 
WILL NOT BE IDENTIFIED.) 


ENTRY ERRORS 


THE PROGRAM WILL NOT ACCEPT DRIVE NUMBERS GREATER THAN 7. IF 
N INVALID DRIVE NUMBER IS ENTERED IN RESP ONSE TO THE DRIVE 
NUMBER REQUEST THE PROGRAM WILL TYPE A °?°: THE OPERATOR MAY 

ENTER A VALID AUMBE 


THE PROGRAM WILL NOT ACCEPT HEAD pone atee gy THAN 18 (DECIMAL) 
OR CYLINDER reste OTHER THAN 245( 10) ah an aint /S’S OR 496(10) 

FOR RPOS’S. IF AN INVALID CYLINDER OR HEAD ADDRESS IS ENTERED THE 
orate. WILL REJECT THE ENTRY AND RETURN TO THE SRIVE SELECTION 


THE PROGRAM WILL NOT ALLOW A DRIVE TO BE ASSIGNED IF IT IS NOT 
utc IF THIS IS HTTEMPTED, THE OPERATOR WILL 
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DRIVES ASSIGNED ARE + ey TO_ENSURE THAT THE DRIVE ASSIGNED 
IS PRESENT, ONLINE, AND IS AN RPCY, RPOS, OR RPO6. THE PROGROM WILL 
gig ASStGNMENTS: FOR DRIVES WHICH ARE NOT PRESENT OR ARE NOT 


SUBSYSTEM/DEVICE ERROR MESSAGES 
1. 


é. 
J. 
4. 
$. 


6. 


“3 


13.. 


RESTRICTIONS 








101 


SE SCS? 


*RH11 INTERRUPT OCCURRED (RPAS=0) - Ali INTERRUPT 
OCCURRED, BUT NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION. 


“UNEXPECTED ATTENTION OCCURRED’ - THE INDICATED DRIVE INTERRUPTED, 
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE. 


*MASSBUS PARITY ERROR (MCPE=1)’ - A CONTROL BUS PARITY ERROR 
WAS DETECTED BY THE RH1i WHEN THE INDICATED REGISTER WAS READ. 


*MASSSUS PARITY ERROR (PAR=1)" - A CONTROL BUS PARITY ERROR 
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN. 


"ADDRESS PLUG CHANGE SIT SET’ - THE PROGRAM FOUND THE ‘OPE’ 
BIT SET FOR THE INDICATED DRIVE. 


*RH1i DIDN’T RESPOND TO ADDRESSING’ - THE PROGRAM ACCESSED THE 
RH11 AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 


"DRIVE OR DATA ERROR’ - THE INDICATED DRIVE COMPLETED AN OPERATION 
WITH THE INDICATED ERROR CONDITIONS SET. 


"DRIVE UNSAFE ERROR’ - THE INDICATED DRIVE SIGNALED AN UNSAFE 
CONDITION. 


*HEAD OUT OF ALIGNMENT*® - THE INDICATED HEAD OF NOT WITHIN TOLERANCE. 


ae TOO FAR OUT OF ALIGNMENT’ - THE INDICATED HEAD IS TCO 
FAR CUT OF ALIGNMENT FOR THE PROGRAM TO FIND THE TRACK 
CENTERLINE FOR THAT HEAD. 


*SOFTWARE TIMEOUT’ - THE INDICATED DID NOT COMPLETE THE 
OPERATION WITH 1 SECOND. 


eWiconeec neLe Lats a PARITY ERROR® - THE PROGRAM ATTEMPTED 
rR PERFORM AN OPERATION AND DETECTED 3 RULES ES MASSBUS PARITY 

ERRORS OR 1H HE PROGRAM ATTEMPTED TO CLEAR A ‘PAR’ ERROR IN THE 
DRIVE AND A PARITY ERROR OCCURRED. 


"DRIVE IS UNAVAILABLE’ - THE INDICATED ORIVE HAS GONE OFFLINE 
OR HAS BECOME NON-EXISITENT. 


me ae eee 
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PROGRAM. NO DATA TRANSFER OPERATIONS ARE PERFORMED. 


8. PROGRAM DESCRIPTION 


8.3 VERIFICATION MODE 
8.1.1 RPOYS OPERA..0NS 
THE PROGRAM CHECKS HEAD ALIGNMENT AT CYLINDER 245, HEADS C0 


< CYLINDER ov ne Fe RAD %, 2 Ese 0 ee ig. “AND REVERFIES ALIGNMENT. NT ar 
0 IS OUT OF" AL TGNMENT BY MORE THAN THE SPECIFIED AMOUNT. 


HERD ALIGNMENT IS CHECKED IN THE FOLLOWING MANNER: 

1. OFFSET THE POSITIONER TO +1200 MICRO-INCHES. 

2. STORE THE SIGN CHANGE BIT. 

3. MOVE THE POSITIONER_IN THE OPPOSITE DIRECTION IN 25 MICRO-INCH 
ta ‘thes THE SIGN CHANGE BzT CHANGES VALUE. STORE THE 


4. yey THE POSITIONER TO -1200 MICRO-INCHES AND REPEAT STEPS 
@ AND 3 ABOVE. 


5. AVERAGE THE TWO SIGN CHANGE OFFSET vee AND REPORT IF THE 
SELECTED HEAD IS MISALIGNED BY MORE THAN 
MICRO-INCHES FOR CYLINDER 245 OR + OR - 360 MICRO- INCHES FOR 
CYLINDERS 4 AND 400. 


REPEAT THE ABOVE SEQUENCE FOR ALL HEADS AT CYLINDER 24S AND FOR 
HEADS O AND 18 AT CYLINDERS 4 AND 400. 


| 
| THE ole MAY TERMINATE THE OPERATION AT ANY TIME SY TYPING A 
| 





























“CONTROL 

£.1.2 POG OPERATIONS 7. 
THE PROGRAM CHECKS HEAD ALIGNMENT ir CYLINDER 496, HEADS 0 - Mit 
AT CYLINDERS 800 AND 8, HEADS 9, 1, 10, 17 D 18, AND RE- VERF ATES \ 
ALIGNMENT AT CYLINDER 496, HEA apg 6 i8. tHe’S OPERATOR WILL BE NOTIFIED 


IF A HEAD IS OUT OF ALIGNMENT BY Sone THAN THE SPECIFIED AMOUNT. 
HEAD ALIGNMENT IS CHECKED IN THE FOLLOWING MANNER: 

1. OFFSET THE POSITIONER TO +600 MICRO-INCHES. 

&. STORE THE SIGN CHANGE BIT. 

3. MOVE THE POSITIONER IN THE OPPOSITE DIRECTION IN 25 MICRO-INCH 





KO1 


MAIN, one 27.655) 27-APR-76 16:51 PAGE 9 
ZRICR. DOC 


OZRICA 


8.2 


8.3 


ry a) 


eens UNTIL THE SIGN CHANGE BIT CHANGES VALUE. STORE THE 
FFSET VALUE. 


4. OFFSET THE POSITIONER TO -600 MICRO-INCHES AND REPEAT STEFS 
2 AND 3 ABOVE. 


S. AVERAGE THE TWO SIGN CHANGE OFFSET Sa, AND REPORT IF THE 
SELECTED HEAD IS MISALIGNED BY MORE T 7S 
MICRO-INCHES FOR CYLINDER 496 OR + OR . N35 MICRO- INCHES FOR 
CYLINDERS 8 AND 800. 


REPEAT Me ABOVE SEQUENCE FOR ALL HEADS AT CYLINDER 496 AND FOR 
HEADS O, 1, 10, 17, 18 AT CYLINDERS 8 AND 800. 


Hh eee MAY TERMINATE THE OPERATION AT ANY TIME BY TYPING A 


ALIGNMENT affODE 

THE PROGRAM MAY ALSO BE USED TO PROVIDE HEAD SELECTION FOR DDU 
CONTROLLED HEAD ALIGNMENT. WHEN THIS MODE IS SELECTED 
PROGRAM WILL PERFORM NO ALIGNMENT CHECKING - ONLY THE REQUESTED 
HEAD IS SELECT ED IN THE DCL. THE ACTUAL ALIGNMENT MUST BE PERFORMED 
USING THE ALIGNMENT METER ON THE DDU, DEDU, OR PERCH. WHEN 

THE ALIGNMENT MODE, THE PROGRAM PROVIDES HEAD SELECTION WHICH IS NOT 
PRESENT IN THE DDU. 


MBN eee MAY TERMINATE THE OPERATION AT AY TIME BY TYPING A 


RANDOM SEEK UTILITY 


THE PROGRAM CONTAINS A UTILITY ROUTINE WHICH PERFORMS 5,000 
RANDOM SEEK a Na ON THE DRIVE BEING CHECKED. THIS UT 
ALLOWS THE OPERATOR TO EXERCISE THE HEAD ASSEMBLY ON THE DR 
HEAD ALIGNMENT HAS BEEN PERFORMED. 


THE UTILITY ROUTINE IS NORMALLY 1. AFTER HEADS HAVE BEEN ALIGNED: 
THE RANDOM SEEK UTILITY IS CALLED AND HEAD geht IS_RE-VERIFIED 
AT COMPLETION OF RANDOM OUTINE DOES 


SEEK KS. USE 
NOT REQUIRE CYCLING DOWN THE DRIVE AND REPLACING. THE ALIGNMENT 
PACK WITH A SCRATCH PACK FOR THE HEAD SHAKE DOW 


THE OPERATOR MAY TERMINATE THE OPERATION AT ANY TIME BY TYPING A 
*CONTROL C’. 


I 
I 


PROGRAM LISTING 


ee ee + ee  - e e e ee 
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“END 


ERRORS DETECTED: 0 


* »DZRICA/SCLEDZRICA. DOC 
RUN-TIME: 1 2 0 SECONDS 
CORE USED: <K 
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| 500295. . SRiF= 200 Z:CODE FOR CARRIAGE RETURN-LINE FEED 
| 7776 sss «17777 :;PROCESSOR STATUS WORD 
Euly PS. Pow 
177774 STKLMT= 17774 :3STACK LIMIT REGISTER, 
17777 PIRG= 17777 : PROGRAM INTERRUPT REQUEST REGISTES 
177575 DswR= 17757 _- HARDWARE SuITCH REGISTER 
177570 DOIsF= 17757 HARDWARE BiSpLay REGISTER 


a g 
POULT Samer elisme lists ma litle viliider iA eru i eee ili sme Ai Me ey lis eee eT 


. 4: 
LA | 


escens «as 5s T:GENERAL REGISTER 
RAL 


5 505501 Ris $36 REGISTER 
= 50008 Re= ie ;;GENERAL REGISTER 
37 595093 i ;:GENERAL REGISTER 
(ae 650004 Rus ::GENERAL REGISTER 
<5 c50055 R= ;:GENERAL REGISTER 
sc sisialale Res : GENERAL REGISTER 
53 nialalalayg R?s uP : GENERAL REGISTER 
=2 EQUITY RE.SP TSTACK POINTER 
53 TEGUIY RPLPC :;PROGRAM COUNTER 


»#ORIORITY LEVEL DEFINITIONS 
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se 220 eile 
An 


mr De LIA CALI ALIA AMATO ATi Aaa aay 
*CROD* MUN Ostte +0). 1 


fatal vated 
Cts 2 anteae 


owmy 
CTs +0 9.0000- 


“os 
{ v0 ee Seat ST ppt 
A ere cat 


do-C ROD NIE 


<b se 0 
CVC 00 10 0 Ee 


OCD NIIP 6 
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£04 5.6 HEAD ALISNMENT PROGRAM MACY!) 27(655) 
Basie SEFINITIONS 
290059 PRO= +sPRIORITY LEVEL 2 
500548 PRI= 40 : EREORI TY LEVEL 1} 
atte PRo= = ss«100 »: PRIORITY LEVEL 2 
5G53495 PR3= =s-« 140 ::PRIORITY LEVEL 2 
900299 PR¥=*. 200 : BRIORIT: LEV L 4 
alae fe PRS= BD S:PRIORITY LEVEL § 
599305 FRE= 3000 :;PRIORITY LEVEL & 
930338 PRPs 32-340 !:PRIORITY LEVEL > 
sa"SWITCH REGISTER” SWITCH DEFINITIONS 
yes gwiS= 100090 
545950 Swis= 40080 
B256° Ewl3= 20990 
5: R656 Swiz= 10000 
504006 Swil= 4000 
592580 Swid= 2009 
80100 Swos= 1809 
55545 Suos= 458 
995299 Swo7=2 200 
655708 Swob= = 100 
595846 SwoS= 49 
959526 Eywoss 22 
655:6 Su03= 10 
BRAS AG Swo2= 4 
RASARS Swois 2 
56885: cwoo= 1 
EQUIV Su09, SWS 
TEQUIV Suoe: Sug 
-LOUIY SWO?, SW7 
SEQUIV SWS; Swe 
“EQUIV 5wos: 
TEgUIV § Swo4. Su 
“EQuly §6§wo3; Sua 
TEQUIV SO?! 
TEQUIY SOI) SWI 
“EQUIV §SwOO0; Sw 
-#DATA BIT DEFINITIONS ©8170 72 82715) 
yoooos B1T1S= 106000 
AGREAS SiT14= 40009 
25099 SITig= ecoce 
315000 SlTl2= 19900 
594969 BITll= 4600 
502300 Bivio= 200° 
10 BtTs9= 100d 
605409 8iTég= 499 
990209 aiTo7= 2c0 
090109 BiTcs= 150 
509049 BITOS= 42 
cood28 BiTo4= 20 
880915 Bivoz= 1c 
slalslele BiTbe=s 4 
alsjeleter- Birdl= 2 
elatetatayl ef70C= | 
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LL<D2RIC-A, ROD4 SS HEAD ALIGNMENT PROGRAM MACYL! 27; 27-APR-76 16:34 PAGE 4 
gsasé. O98 BASI> AEFINITIONS 

320 .EQUIV BITO9,BIT9 

33] -EQUIV BITO8.8ITS 

iis -ESULY B110?, 117 

33 ESuIY Biroe:Btre 

335 “EQUIV BITO4:SIT4 

ré .EQUIV SITO3.BIT3 

13? “EQUIV BITO2.BITe2 

zis “EQUIV BITOL.8ITI 

+22 EQUIV BiT00,81TC 

te! - seBASIC “CPU TRAP VECTOR ADDRESSES 

tz nocoo4 ERAVECS 4 ii TIME OUT AND OTHER ERRORS 

Rk} 550910 ESVEC= 10 : RESERV ED AND ILLEGAL INSTRUCTIONS 

34 558014 TBITVEC=14 “tT BT : 

Les $090 14° TRIVECS 14 E TRAP 

26 pa9514 RPTVEC= 14 POINT TRAP (SPT : 

37 afeslaraa TOTVEC= 20 “OUTPUT TRAP (tat ) ##3C0PEs« 
i 59 BS5634 PURVEC= 34 L 

| 629930 EMTVEC= 30 : EMULATOR TRAP (EMT) ##ERRORS* 

136 550034 TRAPVEC=34 “TRAP” TRAP 

23: HARES TKVEC= 60 iy KEYECARD VECT 

132 o55554 TPVEC= 64 Y PRINTER VECTOR 
i 505349 PIROVEC=240 eG RAM INTERRUPT REQUEST VECTOR 
{ +33 $3 PEESERSSESEESEEESER EER LSDEED ESAS EEASDSERSSSSSESERSLED CSO SRE SEES 
| 38 .SBTTL RHIL REGISTERS 
138 SE RESREELARESESESE RAE LAELERRRSLELAEPLERLASALPELFAFALA PSE SPSS LELES 
! J 
30 sCONTROL AND STATUS REGISTER 1 (RPCSI) 
| fap 999199 IE= 100 : INTERRUPT ENABLE (BIT 46) 
743 580295 R5y= 306 :READY (BIT a7) 
ee.) sisletisre alg= 400 HIGH ORDER BU ADDRESS SIT (BIT 
| jus 607000 airs 1600 THIGH ORDER SUS ADDRESS SIT .SIT 
IME 552698 PSEi= 8962900 RT SELECT (BIT #10) 
| ya atletaleia) MePE= 55000 -MASSBUSS PARITY ERROR : 12) 
(tae 546605 TREs 40009 : TRatSreR ERECR (SIT #34 
(TS :3c= 100000 PECIAL CONDITION BI? 
i ph sa) 
ee i sWORD COUNT REGISTER (RPWC) 
| 368 :(ERCH BIT IS CRLLED BY BIT NUMBER) 

gS :8U5 ADDRESS REGISTER (PSA) 

+E S(ERCH BIT IS CALLED SY BIT NUMBER) 

157 sCONTROL AND STATUS REGISTER 2 (RPCS 

1§9 900: USiz 1 ;UNIT SELECT (BIT aC) 

1é3 ateratajar-| uSe= 2 UNIT SELECT (BIT #1) 

igi 502594 usys yy :UNIT SELECT (SIT 2) 

ise sislelahte BAi= 19 :BUS ADDRESS INCREMENT 1! 

te3 962030 Pat= 20 “MASSBUS PARITY TEST (82? 





Rte. “Dahlen, RFCS 5 
203 


Tiida a 
-ChOUD~ Ww 


3- 3-3-3 
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he | 


ty CPV OIUSTV iv siddlédidelesiiaidsl eel estidtig) 


4: G01 (9.00 © 01 Ne OD 


2.00 NOU £oiMue-O.0O0c- tatty 


8) COCCI O90) 19090... 


PUPOTUTUPUTITOPUITOTULUTULULTULUTU LULL + & +02 0-* 0 4 0-+ 0-0-2 0-2 0 +b 2 & < 0-* b-* b-2 0-2 8b 4 b- 2 4 8 0 Od 8d 8-8 ad owe 
7) *0-*8 
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“4 3.8. naan iat PROGRAM MACYL1 271655) 27-APR-76 i6:34 PAGE S 
Hil REG § 


CLRe ;CLEAR (BIT #5) _ 
IR= 100 TINPUT READY (BIT_#6) 
OR= 200 SOQUTPUT READY (BIT #7) 
MPE= = 480 :MASS BUS PARITY ERROR (SIT #2) 
MXF= 1909 :MISSED TRANSFER ERROR (S17 #9, 
PGE= 2000 sPROGRAM ERROR (BIT #10) 
NEN= 0 :NON EXIST MORY (BIT #1i) 
NED= 19000 NON, EXISTENT DRIVE (BET 82), 
upE= = £9000 SUNIBUS PARITY ERROR (SIT #12) 
WcE= 40000 sHEITE CHECK ERROR (BIT #14) 
DLT= 100000 :DATA LATE (SIT #15) 
:DATA SUFFER REGISTER, (RPD2) 

;:EACH BIT IS CALLED ay BIT NUMSER? 


s HEARLFSRERSAAERERTEAAERHFSFEAELSFFPRATLAA FFA FRFRALALF SLAF SSE FSSS 
.SSTTL RPC4/S’E REGISTERS 
g FLSFAARALAALERETRERTLLAARTELE SERA LERRERELFLRALLLFELHFLAERHEFUAFF AF 


; CONTROL AND S$ TATUS 1 REGISTER. (#00) 


60s } 330 BIT (SIT #0} 

Fis = sFUNCTION CODE BIT a1 

Fo= 4 SFUNCTION CODE BIT a2 

F2s 19 sFUNCTION CODE SIT 83 

Fas 20 sEUNCTION CODE git 8 

FS= 40 sFUNCTION CODE 

DVA= 4500 :DEVICE AVAILABLE (Bit B.1) 


;ORIVE STATUS REGISTER \RPOS1) (#01) 
sOFS= 1 DRIVE go §"/SEC. ‘BIT 8° 


OFF20= 2 DRIVE FORWARD 20"-SEC. (BIT 81). 
O1cB= 4 :QRIVE TO_IN R GUARD BAND (SIT #2) 
GRv= id ;G0 REVERSE (BIT #3) 
DLe4= 20 DIFFERENCE LESS THAN G4 (SIT aH) 
Df&l= 49 : DIFFEREN FOURLS 1 (BIT 

We 100 ;VOLUME VALID (BIT #6) 
oRy= 209 SORIVE READY (BIT 87) 

PR= ;ORIVE PRESENT (SIT #9) 

GM= 1000 :PROGRAMABLE (BIT 89) 

LST= 2000 SLAST SECTOR TRANSFERRED (SIT 8:0) 
URL= co SHRITE LOCK (BIT 811) 

MoLs 10000 MEDIUM ON-LINE (BIT siz? i 
PIF= 20000 : POSITIONING OPERATION tN PROGRESS 
ERR= 40006 : COMPOSITE ERROR (SIT al4) 

ATA= 100020 SATTENTION ACTIVE (BIT #:5° 


;ERROR REGISTER #01 (RPERI) (#02) 
ifs 1 SILLEGAL FUNCTION <BIT #2) 


ee ee re ee ee a 





MMa21<PoRTO<A, RECH.S6 H 
n2ar2.3o3 REOY SS 

218 2090s 
$2 Baber 
33} 900920 
222 99054 
S53 o5oic 
234 500299 
225 p0c489 
ER 901060 
so? 892990 
239 664959 
325 310950 
eso 530900 
3) 548000 
232 1050 
=33 
234 
235 
536 95990: 

Ea? afalatelet-] 
38 555094 
235 slelalah 
B45 56592° 
343 alniajar fe 

; EM 585205 

| =3 

| E4S 

| ea 9900: 

| Eye 59c508 

Sug rosocs 

| B59 alatataJa 

| gt 599545 

| pee 585108 

a oo 65586 

, 2cy 

' Sec 

| Bee 

} aa? 

_ es 

i BSS 
Fite 9999! 

| Bey 500502 
Zee 699904 

| 23 506210 

i. @64 000929 

2st 96049 

BEE 950700 

i BE? slelatie 

ae - 990459 

; ses An. 

| De0808 
273 045035 





fie eT ERTMCOTFICATTON REFUSED “BIT wz 
Hite e4 a REF SED we! S- 
Reo iPaRTY ER HOR ALT ey 
=o a eee Et 

CFs ; 8S) 
ECH= 100 iff TE oh eRe rate 
HCE= 200 ;HEADER COMPARE “wy (BIT #7) 
HCRC= 400 sHEADER C Aa (BIT #8) 
AOE= 1000 sADCRESS OVERFLOW ERROR (8IT rtf 
IRE= ecoo ; INVALID RDORESS, on (BIT 
WLE= 4000 ;WRITE LOCK ERR T geil) 
DTE= 10000 sDRive TIMING SPROn (BIT aie) 
OPI= 20009 ;OPERATION INCOMPLETE ‘BIT #132) 
UNS= 49000 sORIVE UNSAFE (BIT #14) 
Ock=s 100090 ;DATA CHECK ERROR (SIT 15 
sMAINTRINASILITY REGISTER (RFEMR) (#03) 
OMd= 1 DIAGINOSTIC MODE ‘BIT #3) 
MOLK= :MAINTAINABILITY CLOCK (BIT #1) 
MINX= 4 sMAINTAINABILITY INDEX (SIT #2) 
MSTCK= 10 MAINTAINABILITY SECTOR CLOCK (SIT #3) 
MRD= 20 sMAINTAINABILITY READ (817 _ 84) 
MWR= 40 oM NTAINABILITY eile (BIT #5) 
OTsr= 250 : MAINTAINA BILITY SYN ¢ DETECT EC ‘BIT se?) 
sATTENTION SUMMARY PSEUIDO-REGISTER (RPAS) (#04) 
610s} sDEVICE 9 (BIT #0) 
AaTi= é : DEV ICE 1 (BIT #1) 
aTz= 4 :DEVICE 2 (BIT #2) 
AaTd= 18 sDEVICE 3 (BIT #3) 
AT¥= 89 SDEVICE 4 (BIT a4) 
aTs= 49 sDEVICE S (BIT #5) 
aTe= 190 :DEVICE & (BIT 86) 
AaTtrs 200 :DEVICE 7 (BIT #7) 

i DESIREL SECTOR’TRACK ADDRESS  PasESTER (RPDA) (#05) 

STEACH BIT IS CALLED BY BIT NUMBER) 

;DRIVE TYPE REGISTER (RPDT) (#06) : 
orcas 1 DRE TYPE NUMBER Bit ] 
OTOls e :DRIVE TYPE NUMBER BIT 2 
OT02= ;ORIVE TYPE NUMBER BIT 3 
DTO3s 10 sORIVE TYPE NUMBER BIT 4 
O7To4= 20 sORIVE TYPE ER BIT S 
DTOS= 49 sORIVE TYPE BER BIT & 
DTO&= 100 sORIVE TYPE NUMBER BIT 7 
OT07s 200 ;ORIVE TYPE BER BIT § 
OTo3e8= 400 ;DRIVE TYPE NUMBER BIT 9 
oRG= 4¥00C s;DRIVE REQUEST REQUIRED (BIT #11) 
MoH 20020 sMOVING HEAD (BIT #13) 

Tres 46009 sTAPE DRIVE (BIT #14) 
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MENT PROGRAM MACYL1 27(655) 


NBA= = 10000 sNOT BLOCK ADDRESSED (BIT sis 
sLOOK-AHEAD REGISTER (RPLA) (#07) 

EXTl= 1 sEXTENSION 1 (BIT #0) 

EXTo= !EXTENSION 2 (BIT #1) 

EXT4= 4 :EXTENSION 3 (BIT #2) 

EXT10= 10 SEXTENSION 4 (BIT #3) 

ExT20= 20 !EXTENSION S (BIT #4) 

ExT40= 40 :EXTENSION & (BIT #5) 

SCl= 100 :SECTOR COUNT FIELD 0 (BIT #6; 
S32 = 20e :SECTOR COUNT FIELD 1 (BIT #7) 
Séu= 400 SECTOR COUNT FIELD 2 (BIT #9) 

Stio= 1000 :SECTOR COUNT FIELD 3 (BIT #9) 

Séa= 2000 SECTOR COUNT FIELD 4 (BIT sid) 

TRKI= 4000 STRACK FIELD 1 (BIT #11) 

TRKe= 10050 :TRACK FIELD 2 (BIT #12) 

TRKY= 20090 :TRACK FIELD 3 (BIT #13) 

TRAIC= 40090 STRACK FIELD 4 (BIT #14) 

TRK20= 100900 : TRACK FIELD 5 (BIT #15) 

:RPOY ERROR RESISTER #2 (RPERZ) (#10) 

wel= sWRITE CURRENT UNSAFE (B27 80) 

cSF= 3 CURRENT SINK FAILURE (BIT #1) 

Sus 4 :WRITE SELECT UNSAFE (BIT #2: 

esu= 10 :CURRENT SWITCH UNSAFE {BIT 82) 

MSe= 20s BD :MOTOR SEQUENCE ERROR (BIT 94) 

Tos 40 : TRANSITIONS DETECTOR FAILURE (BIT 

TuF= 100 : TRANSITIONS UNSAFE (BIT #5) 

FEN= 5 :FAI SAEE ENABL D (BIT #7) 

wPus 900 {WRITE READY UNSAFE (BIT. #3) 

Nee: Boca tNO MEAD SELECTION (BIT aio, 

NKS= $ ( 1 

IXE= SoR5 : INDE RRS (B : #11) 

VU30= 10000 oe UNSAFE {err 382 

Pius 2900 


0 
ACU= 100C0C 
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;RPOS/’& ERROR REGISTER #92 (RPERZ) (#10) 


WCU= ] 
CSF= 2 
WSU= 4 
cSu= 10 
RAW= 20 
TOFs 40 
TUF= 100 
ABS= 200 
WRU= 400 
MHS= 1009 
NHS= 2090 
IvE= “ 


----—- ee ee eee 2 ee fs Ne Etat he ER. Le, POE Ee eS a 


;WRITE CURRENT UNSAFE ‘SIT 
;CURRENT SINK FRILURE 817 
;WRITE SELECT UNSAFE (B17 

: CURREN T SWITCH UNSAFE (ITs 


Sh ie (BIT 85 


‘ 


INDEX ERROR (BIT 8 
;PLO UNSAFE (BIT e13) 
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;OFFSET REGISTER ‘SPOF) ‘#il) 


OFeS= s OFFSET NCH T #0) 
Sres: Sere 63 Mieke INCHES (Est at: 
OF100= 4 FFSET 100 MICRO INCHES (EIT #2) 
OFe00= 10 ; OF set ge MICRO INCHES (oi 82) 
OF¥O0= 20 OFFSET 400 MICRO INCHES (BIT #4) 
OF800= 40 ;OFFSET 800 MICRO INCHES (BIT #S) 
OFREV= 200 s OFFSET NEGATIVE (REVERSE) (81 
HCI= 2000 ADER COMPARE INHIGIT (BIT #10) 
ECI= 4900 “ERROR CORRECTION CCDE INHIBIT <2 
FMT22= 10000 :FORMAT BIT (BIT #12 

: DESIRED CYLINDER ADDRESS <RPCA) (#12) 

>(EACH BIT IS CALLED BY BIT NUMBER) 

: CURRENT CYLINDER ADDRESS <RPCC) (#13) 

;(EACH BIT IS CALLED BY BIT NUMBER) 
pum NUMBER REGISTER (RPSN) (814) 
; (EACH IS CALLED BY BIT NUMBER) 
:RPOY ERROR REGISTER #03 (RPER3) (#15) 
FSU= 1 ;PACK SPEED UNSAFE te #0) 
VUF= 2 : VELOCITY UNSAFE (BIT 
UWR= 19 UNSAFE EXCEPT reat: WRITE (SIT 93) 
ACLs 49 an ‘Lou (BIT #5) 
DCL= 100 :DC LOW (BIT #6) 
SkI= 49000 : SEEK INCOMPLETE (BIT #14) 
OCYL= 100000 :OFF CYLINDER (SIT #15) 
:RPOS/’& ERROR REGISTER #03 (RPERS) (#15) 
DCUs 1 ;DC UNSAFE (SIT 
WAC= 2 HART ant OF F T cr T #!) 
ACL= 4a C LOW ert 
OCL= 109 : ne LOW ¢ 
OPE= 20000 Oe ROTOR” pus ERROR (en $13) 
SKI= 40000 . :SEEK INCOMP 
OCYL= 10909000 OFF CYLINDER ETE (3: Te wus) 


;ECC POSITION REGISTER (RPEC1) (#16) 
;(ERCH BIT IS CALLED BY EIT NUMBER) 


sECC PATTERN REGISTER (RPEC2) (#17) 
;(ERCH BIT IS CALLED BY BIT NUMBER) 


-SBTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 - CONTAIN A _™“.+2, HALT” 
;*#SEQUENCE TO CATCH ILLEGAL trars’ RNG INTERRUPTS 








eee cee eee eee — 0 + ct: enee eEES-cee eee. 


OIG IGIGIGIGIOILIT 
Noeaeptaett 


tyutgtoud 


Ota - 


Sait he 
003 


B95 i749 
’ => 
wewel 


anns 
rerese 
2-2 -4—-9- 
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TRAP CATCHER 


; LOCATION O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 





DISPREG: . WORD . +1 SOETHARE DISPLAY REGISTER 

SWREG:  :WORD ; :iSOFTWARE SWITCH REGISTER 

-SBTTL PROGRAM STARTING ADDRESS = 200 
Ay STARTI sSTART THE PROGRAN, USE THE DEFSULT FHI1 ADORESS 
IMP START :START THE PROGRAM: CHANGE THE RHI: ADDRESS 





L 

- 

WwW 
BOB SOS OUSO EEUU bbG0000000000000888 
-— + b-< b= b= 6 = 8 0-2 B= 5 = 1 b= 8 § - 0 0—  0- + + + 6 0-0 F< 
o— b+ b— b-* b= + b= 6 b= 8 = 0 F280 b= 0 9 = 9 - = 2 bo 9 2 = 9-2 = 6 9-2 9-0 


£ 
Th 
B08 


+ 

Ww 

ve) 
ooo 
oon 


RE 


FOr NOM EU o EOP UE Werf WOO UO EE OOS 


rota 
4 
CO 


000912 


’ S. t. HEAD ALIGNMENT PROGRAM MACYL! 27°6SS) 


IMCN TAGS 


.SBTTL COMMON TAGS 
5 RRERRRER AKER ER ERK R EAE E AE RAKED KLEE BEER EERE R EARLE SEES EES 


iATHIS TA TABLE CONTA 
:eUSED IN THE PROG 
-=1100 

CMTAG: 

PASS: .WORD O 
STSTNM: .BYTE 9Q 
SERFLG: .BYTE 9 
SICNT: .WORD OC 
$LPADR: .WORD 0 
$LPERR: .WORD 0 
SERTTL: .WORD OQ 
SITEMB: .BYTE Q 
SERMAX: .BYTE 1 
SERRPC: .WORD OQ 
$GDADR: .WORD OQ 
$8DADR: .WORD OQ 
$GDDAT: .WORD OQ 
S$BDDAT: .WORD OQ 

-WORD Q 
-WORD Q 
SALTOB: .BYTE G 
SINTAG: .BYTE 0 
-WORD OQ 

WR: WORD DSWR 
DISPLAY: .WORD ODISP 

TKS: S60 
$TKB: 177562 
STPS: 177564 

TPB: 177566 

NULL: .BYTE 9Q 
SFILLS: .BYTE 2 
SFILLC: .BYTE le 
STPFLG: .8BYTE OQ 
$QUES: .ASCII /?/ 
SCRLF: .ASCII «15> 
SLF SCIZ <le> 
&R s 1S 
LF s le 
DRVSEL: .WOR 8 
DRIVE: .WOR 
ATTN: WORD Q 
eho: OR’ 4 

OPLN: WOR 
OFFDIR: .WOR 0 

ITIND: .WOR 0 
SINCNG: .WORD - QO 
PLUS: WORD OQ 

NREG: RO 4 

OLER: .WORD 


em + ee ee ee ee ee ee eee 
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ne VARTOUS nS STORAGE LOCATIONS 


ii TART _OF Rs Pass COUN S 


ERROR FLAG 
cove INS SUBTEST ITERATION COUNT 
 EOUTAINS COPE LOOP ADDRESS 


SF EON TAINE ITEM CONT 

;;CONTAINS MAX. ERROR RS" PER “Vest 
;;CONTAINS PC OF LAST ERROR sa 
H CONTAINS ADRESS OF *GOOD* 


N H 
t ]RESERVED--NOT TO BE USED 
;;AUTOMATIC MODE INDICATOR 


3; INTERRUPT MODE INDICATOR 


3 s ROORES? OF SWITCH REGISTER 
;ADOR rBB sre tt ea REGISTER 


t: TTY 

ti TTY 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADD 


RESS 
3300 NTAINS NULL CHARACTER FOR FILLS 
CONTAIN ay Nia aPe ee ane a ad 
3; INSERT ante 
+ ATERMINAL AVAILABLE” FLAG. (81 G7) SO=YES: 


;QUESTION MARK 
tS CARRIAGE RETURN 


: [EHH AHHH HEHEHE HEHEHE 


‘DRIVE RUM STORAGE FOR ORIVER ERR CALLS 


ATTENTION REGISTER STORAGE FOR ERROR MESSAGES 





ke alee 
sNEG OFFSET PASS 

;SIGN C INDICATOR 
;SIGN CHANGE BIT ; 

;STORE THE POS S 

:CONTAINS THE VAL 

;ALIGNMENT TOLERANCE FOR PRESEN 














MO-13-CORIC-A, 
DZRIC. 909 


001212 
001214 


001262 


001264 


001266 


RPCYS “6 Thee ALIGNMENT PROGRAM MACY11 27(655) 27-APR-76 


OOOOOOOO000 oO 


9 b— 
N 
“S 
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~SBTTL RH11/RPO4/S/& ADDRESS & VECTOR LOCATIONS — 
tiiitiititittiitttiiitttittittttititittttittttttitittttittt ite 











SES 0022 
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haat Nee aed CYLINDER ADORESS 
iQ DRIV 
ONTAINS MAXIMUM POSITIVE OFFSET 
MAXIMUM NEGA 


Rese 
NDER ADDRESS 

DRESS . 
CONTAINS HEAD TABLE ADDRESS FOR *INCYL’ & *OUTCYL’ 
sana ADDRESS OF OFFSET CODE TABLE 


; SEEK COUNT 

rie | US ADDRESS FLAG 

sKLL-P CONTROL AND STATUS REG. 
P COUNT SET BUFFER 

SRW 1-P COUNTE 


;KW11-L VECTOR ADDRESS 
pKWI1-L STATUS REGISTER 














;RH11/RPO4/S/’& UNISUS ADDRESS 
SRHI1/RPO4/S/6 VECTOR ADDRESS 






























MO-11-D2RIC-A, RPOY’S’G HEAD ALIGNMENT PROGRAM MACY11 27(655) 
DZRIC. 009 ERROR POINTER TABLE 


474 .SBTTL ERROR POINTER TABLE 
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47 ;*THIS Us CONTAINS a, INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

477 S*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

47 s #LOCATION SITEMB. THIS NUMBER rates WHICH ITEM IN THE ee iS PERTINENT. 
479 ; *NOTEL: IF SITEMB IS O THE ONLY PERTINENT DATA IS 

a0 : *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS ERPLATNED AS FOLLOWS: 
482 ;* M ;;POINTS TO THE ERROR MESSAGE 

483 ;* H ;;POINTS TO im DATA HEADER 

484 ;# OT ;;POINTS TO T A 

485 3% OF ;;POINTS TO THE DATA FORMAT 


488 001270 SERRTB: 
430 ;ERROR 1 
492 001270 OS16 :RH12 INTERRUPT OCCURRED (RHAS=0) 


497 ;ERROR 2 
429 901300 EM2 ;UNEXPECTED ATTENTION OCCURRED 


;ERROR 3 
8 0208 EM3 ;MASSBUS PARITY ERROR (MCPE=1> 


516 

Sil 

ats ;ERROR 4 

514 601320 020653 EMY ;MASSBUS PARITY ERROR (PAR=1) 
61S O0i322 021357 DH4 

516 O013e4 021670 OT4 

$17 021762 DFY 

518 

243 ;ERROR S 

Sel 001330 020710 MS ;ADDRESS PLUG CHANGE SIT SET 
See 001332 Oeles4 He 

Se3 001334 Oelb4e DTe 

ese 09133& 0e175i OFe 

Seb ;ERROR & 


j uy 
i tT 
i ™~ 


RPOY/S/6 HEAD ALIGNMENT PROGRAM 


MO-11-O2RIC-A, 
zR 03 ERROR POINTER TABLE 


iJ-O 
TOouW 










;ERROR 7 


;ERROR 19 


;ERROR 15 
EMIS 
0 


i] 
0 
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;RH11 DION’T RESPCND TO ADDRESSING 


;DRIVE OR DATA ERROR 


;DRIVE UNSAFE ERROR 


;HEAD OUT OF ALIGNMENT 


;HEAD TOO FAR OUT OF ALIGNMENT 


; SOFTWARE TIMEOUT 


;UNCORRECTABLE MASSBUS PARITY ERROR 








609 


fu DO— = b= b= bb bb 
LW OWONTUM CWO 


623 


MD-11-D2RIC-A, 
~OZRIC.009 


ERROR POINTER TABLE 


012737 
000402 
005037 
000005 


012706 
O0SC26 
2706 

374 
012706 


012737 


BR 


177777 001242 
001242 


001100 
003140 
001100 
co44l2 000030 
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;ERROR 16 
;DRIVE IS UNAVAILABLE 


ff RERRRAR RRA AERA ERA ARE RK LEER AEE ARLE LE EERE LL ESLER LEE RELELRE 


~SBTTL RPOY/S/’& DRIVER COMMANDS 
5p RRRR RRR R RRR RE HEHEHE LEER AREA ER ERIE EERE REAR ER EERE EEL EEE RAE E EEE 


RNOP= 101. ;NO OPERATION 

UNLOAD= 103 | ;UNLOA D 

SEEK= 105 ; SEEK 

ECAL= 107 ; RECALIBRATE 

DRVCLR= 111 DRIVE CLEAR 

L= 113 ; ELEASE 

OFFSET= 115 30F FSET 

TC= 117 ;RETURN TO CENTER LINE 
PRESET= lel sREAD IN PRESET 

K= 123 ; PACK ACKNOWLEDGE 

SEARCH= 131 ARCH 

GETREG= 141 GET REGISTERS 

SETFMT= 143 SET FORMAT (8 ECI OR HC!) 
SELORV= 145 :SELECT DRIVE 
WOHKD= 151 WRITE CHECK DAT 

CHKHD= 153 SHRI TE CHECK READER & DATA 
WRTDAT= 161 

RTHD= 163 SRITE HEADER & DATA 
RDDAT= 171 D 

HD= 173 READ HEADER & DATA 


5p RRRRRRRREER ELE AERA RAE AREER ERE R AER EERE EERE ER REAR EEE RERER SEER ESE 
-SBTTL PROGRAM START AND INITIALIZATION ROUTINES 
5p RRRRRERLERE EAA REAR ERE E ER AE ARERR ARERR ERARRERER EER EREREERAEEEED 


START: HOY 71 ,CHGADR Perron ;SET CHANGE RH11 ADDRESS FLAG 
STARTI: CLR CHGADR CLEAR RH11 CHANGE ADDRESS FLAG 
START2: -CLEAR THE BUS 
SBTTL Nt ef iALIze THE COMMON Tabs 
CLEAR THE COMMON TASS (SCMTAG) AREA 

MOV 8SCMTAG, Ro :;FIRST LOCATION TO BE CLEARED 

CLR (R6)+ CLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 
BSTAC *:SETUP THE STACK POINTER 
: INITIALIZE A FEW Mkt hs 
MOV SSERROR, JWEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 








ict ——- 
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Daze. 509 INITIALIZE THE COMMEN TAGS 

$36 001514 212737 209340 000032 Moy #349 QUENT VEC+e ; LEVEL 
S3- 501522 Jisvat So74s2 900034 MOV aSTRAE STRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
$38 501530 O1s73? 00340 060036 MOV 20 Sb TRAPVES SS; LEV VEL 7 
$39 901536 sigcg2 1rss43 O0T132 MOV ti7gS83, Suit :7PR HE THE RANDOM Nur ER GENERGTOR 
46 S5i544 O18°3> 1234s& CO°I3 MOV 2245, SLONUM 4 {BOTH HIGH AND LOU WORDS 
$41 S128 FOR 8 HARD WARE SUITCH ReclETER. IF NOT FOUND OR IT 75 
fae ‘ za : EQUAL “1%, SETU P FOR A SOFTWARE SWITCH REGISTER. 
€43 OO:S52 O12T4$ 200004 SHERRVE SP ;;SAVE ERROR VECTOR 
es3 OO15SS Ole7s? SOlsiz 00004 Pay iit EAE :;5ET UP ERROR VECTOR 
eu SO15é4 Olervar 1Pts?o «(OO1140 MOV sine ;:5ETUP FOR A HARDWARE SWICH REGISTER 
g48- 501572 O1e73? irrS79 01142 Mov wooistg ISPLAY SANG A HARDWARE DISPLAY REGISTER 
su*- O01690 S277? irrPr? 177333 OME suR iy, 70 REFERENCE HARDWARE Sue 
s98 901606 O01012 SNE a ANCH IF NO TIMEOUT TRAP Sccusser 
a THE HARDWARE SWR IS NOT = -1 
S50 201619 900403 ; ah eed ee CH IF_NO TIMEOUT 
£5: OO1S12 O1eT16 001820 c4$: 9 MOV BiS$, (SF) I:SET UP FOR TRAP RETURN 

| $5 931616 00002 RT! ! 

| «6 65351820 O1e73> o001TS oo14o SSS: MOV BSWREG, SUR y:POINT TO SOFTWARE SW 

6854 001626 Ole7ar 000174 dd1142 MOV eD1SPRES OISPLAY 

| 55 OO1S34 012637 900004 b5$: MOV (SP}+,as¢RAVEC ;;RESTORE ERROR VECTOR 
és? eta O0See7 rere INC a-! sPARST START ? 

| Bs S144 O0150e BNE sd1S F NOT 
S53 S01S4e iD4401 O1gs4s TYPE TITLE Tee PROGRAM TITLE 

| §60 OOrsS2 104401 S1g6s4 Tyee DDu : TAPE "DDU’ SETUP MESSAG 

| $81 SOI656 104401 09116: TYPE, af 

| 52 O01862 OoN737 OdS604 1$: ISR PC STKINT N ON THE TTY KEYBORRD INTERRUPT 
S63 .S8TTL «GET vaLuE te SOF TWARE siittsH REGISTER 
S24 001866 005737 00042 TST 384 $3ARRE WE RUNNI NG UNDER XXDP“acT? 
c65 O0:S72 601006 BNE ats ; BRANCH 
S€& S0l74 Sez7e? ocliwc cocl7e CMP SUR, BSWREG $350 OF THRE sutton RES SELECTED? 
e657 O0i7o2 o0100 3 bos TFN 

, &88 DO1704 104406 GTSWR iitet Sort esun SETTINGS 

| «63 851706 o90403 = o$ 

+ $*S QO1710 Llé73? 00000: 901134 $78:  MOVB #81,SauTOB ;;SET AUTO-MODE INDICATOR 

| el O01716 bes: 

| §72 OO171G ooSe27 177777 INC s-! FIRST START ? 
E73 O0i722 SO1dio E intr BR IF NOT 
575 901724 004737 ozec02 ISR BUSADR :CHECK THE RH11 ADDRESS 
Ere 951730 913737 O0!264 oor7o4 MOY Saebabe RPADR = ; MOVE RHII AOORESS TO DRIVER 

| E25 Cdivze 813737 Adizee o¢775¢ MCV SRPVEC;RPVEC VECTOR RODRRESS 

| be 
£75 GET THE DRIVE NUMBER FROM THE OPERATOR AND SETUP THE VARIASLE LOCATION 
eet [FOR PPO¥’S OR RPOG'S 

! wwe 

/ €82 901744 Ol2718 001100 INIT: MOV aSTACK, (SP? ;SETUP THE STACK ACDRESS 

$83 801750 005037 177776 CLR eS SET apROCESSOR PRIORITY 7D TERS 

. $85 881755 006037 G01174 SCR TOPLN R 
£85 901760 004737 COSéo4 ISR PE, STAINT ca ze ike ue Sty "KEYBOAR 
£56 SCI7E4 104401 Ci7sés TYPE ENTERD FO Ive BESIGNRENT 
667 001770 904737 COse70 JSR bE. GETNUM 34 OR IVE 
gSe 391775 Afowio BR 1 
cf Sti77e Blie3? coe MOV (SP) DRVSEL ‘ORTVES NURSER 


- 
— Pee Me eee, Seen cere Ses pela ts eee FAAS ot y 





—— ee 
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rae 
SET VALLE FOR SOFTWARE SWITCH REGISTER * 





$30 O2 312637 036120 Nove = ($P+,DPB VE NUMBER TO PAR BLOCK 
$51 a Bie 2583 SaPiES 00010 CMP DRVSEL, ch Me DRIVE NU 
$32 092014 103403 BLO R_IF DRIV NUMBER Ok 
$33 Precis sp449} 001160 1$: TYPE +30uES vet aes! ON MARK 
s4 9520 0; ga {NIT :TRY_AGAIN 
895 002024 CONTS? 904114 23: JSR PC ST. CLK SINITIALIZE THE CLOCK 
$3 90203¢ O0473? OOTf22 JSR PC REINTT INITIALIZE THE DRIVER 
gs* 005034 Olev3r fries ooTe4S MOV s-1,5 :SET SEEK ALLOW FLAG 
é32 002042 D18737 i7P7r? Ooreus MOV a=), aver ;SAVE ORIVE REGISTERS 
£33 90205¢ 113708 p2b1E0 MOVE = OPBLRG {USE DRIVE NUMBER AS AN INDEX 
"Oc 902054 105769 OO?Sss TST DRVSTACRO) SEE IF DRIVE AVAILABLE 
esl 33250 303094 SGT 38 :BRANCH IF IT 1S 
foe 19940) 017524 TYFE = ,NODRV ;DRIVE NOT AVAILAGLE’ 
TOS S02086 900137 301744 Jup NIT zTRY_IT AGAIN 
7 302072 132760 0003003 oO7sse 3$: [78 agiTooreiror, Dav TyP(RO) sRPOW/S 7 
w5s 802100 d0194e fo 948 NOT 
| 286 06102 Olers? 90053 002222 MOV #350. OUTTOL ae 4 8 400 TOLERANCES 
| kg Beetid Bleva? G00112 ool2e4 MOV AIDTOL TOLERANCE AT CYLINDER 245 
73 OOE11E 012737 900625 SOleo¢ MOV #400" INCYL ALIGNMENT CYLINDER 
ToS 302124 012737 i 001232 MOV #4, OUTCYL ‘UT R ACTCNMENT CYLINOER 
ciS Sosise Sera? S0c365 951830 MOV #245. MIDCYL AL LGMPENT CYLINDER 
| S33 SO5186 81523 Bre315 601535 Mov -RHEAOSS, TABLE] HEAD ADDRESS TABLE 
| 33g O08IN6 O1873? O16495 Od1235 MOV aOF BLY TRBLES | ;OFESET TABLE ADORESS 
' 213 30184 1e72? 960633 Oo0lele MOV nAXCYL LAS CYLINDER + 1 
| S35 DOstea 5159? irss30 901316 MOV #1200. XNEG MAXIMUM NEGATIVE OFFSET VSLUE 
| PIS 368176 O1er37 02260 901214 MSV #1200. haxeos MAXIMUM POSITIVE OFFSET VALUE 
| 228 88376 Oier37 C0014] 0le20 MOV .  MAXOFF :NUMBER OF OFF SET_POSITIONS 
| Zi? Sss04 90044) . BF 3. :CONTINUE WITH THE SETUP 
«Pi «952208 01273? o00es7 o91222 48: MOV #175.,O0UTTOL § ;TOLERANCE AT "SYLINBERS 83.8 
| 313 903214 9128797 690112 O01ce4 MOV #75. -AIOTOL ; TOLERANCE AT ALIGNMENT GY REES 
/ 720 O62e22 Sler37 001445 991226 MOV 800. INCYL SINNER ALIGNMENT cYLINOER 
| 722 008939 018737 900010 O0i23e MOV #8. OUTCYL SOUTER AL GHMENT CYLINDER 
| Tee 002536 912737 900769 001230 MOV e496. MIDCYL  3ALIGNMENT CYLINDER 
| 323 OG544 018737 016269 001234 MOV 6, TABL : HEAD ADRESS. TABLE 
«Tee Besse Ole7s? Olesey Doles mo BOFTBLE TABLE ;OFFSET CODE TABLE 
| Tes 02860 Sie737 SO14S? BOle2l2 MOV e815. ,MAXCYL ;MAXINUM CYLINDER ADDRESS + | 
| PEE 902386 012737 176660 oO1z1e MOV #-500: .MAXNEG © ;MAXIMUM NEGATIVE OFFSET VALUE 
72? 902274 Ole737 091130 001214 MOV #690..MAXPOS =; MAXIMUM POSITIVE OFFSET 8CJe 
728 092202 912737 90006] 55122c MOV #49. MAXOFF NUMBER 0 ER OF OFFSET POSTTIONS 
725 902310 004537 903736 S$: JSR ss RS_ DRIVER ;RECALIBRATE 
| 730 002314 900107 “WORD = RECAL DRIVER CALL 
731 O0231¢ 032737 oo4000 clé1S2 SIT BEITIL,REG*RPDS SEE IF WRITE LOCK SET 
732 002324 901003 BNE —s_«&$ BR IF _WRITE LOCKED 
73s 092326 104401 017604 TYPE =, WLOCK SREPORT NOT WAITE LOCKED 
724 90332 000604 aR INIT TRY IT AGAIN 
735 802334 104401 017761 b$: TYPE.  , MODE : SEE IF ALIGN, VERIFY, Of EXERCISE 
73— 992340 104419 ROCHR :GET T 
73? 02342 012637 goede MOV ($P}+, 108 :SAVE. THE ENTRY 
728 OCE34E 12e737 000126 cOe442 CMPR oa, 108 ;WAS Q 'V’ ENTERED ” 
| 739 «O9E354 Ooi 4ge = BEQ F IT WA 
74o 00235e 022737 o0010: coz44e2 cM #°A, 108 TWAS ANA’ ENTERED ? 
74i 902364 001902 BNE 807 :BR IF NOT 
' 7s BOE3E 006137 903529 IMP = OGUALN :HEADS 10 BE ALIGNED WITH DDU 
743 SCzE372 Oee737 SOCISS cozs42 78: CMP wE, 108 :SEE IF EXERCISE 





— Se Eee 
. 
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i | 
903 GET VALUE FOR SOFTWARE SWITCH REGISTER — 
oc2400 6901904 BNE 23 “BR F °E* NOT ENTERED 
O0s402 600137 20340 IMP RANDOM :G0 TO_EXERCISE ROUTINE 
OOs40§ 104401 Ode44e2 TYPE =. 198 sECHO THE E INVALID CHARACTER 
4° OGS412 10440] 001160 8S: TYPE SQUES : TYPE “ 
4 16 000137 01744 IMP {NIT :60 BLL THE WAY BACK TO DRIVE ENT? 
Te 002422 10440! 820025 QS: TYPE VERIFY : TYPE VERIFY" 
- 950 $0242 32777 900004 i7eso4 SIT isi SNR ;SWITCH 2 SET ” 
751 002434 931504 BEQ YLOER :BR IF NOT SET = CHECK QLL HEADS 
“52 023436 00157 oos444 IMP SNEHE : CHECK ONLY THE SPECIFIED HEME 
733 B5S442 550000 108: . WORD 9 :OPERATOR ENTRY GOES HERE 
a) ‘ 
rss SE RSA RERRASSERERRAFAALHSHRHAEA AL LALELRHSLFA PRA SRS LA EAS SE LASSSS 
755 ; 
rey .SSTTL SETUP TO CHECK ONLY THE SPECIFIED HEAD 
| Ts? p PSRRRERAALERPRSSRELAESERA RES SESSESEESESSALLSSEDAELSS ELSES SESE SES 
| Teo 
| TEI OOBeHy 198401 2026 ONEKD: TYPE ENTCYL sASK FOR CYLINDER ADORESS 
1 6583 BSSuso Sours? «= S35E70 JSR PC. GETNUM GET THE CYLINDER ADDRESS 
| 753 Sdey84 80437 Ra :"CR* ENTERED 
| Tes O0345¢ Ole637 016132 MOV .5P}+,DPB+CYL  ;MOVE IT TO PARAMETER BLOCK 
TSS OOS4EE 913737 DOlez2 901210 MOV QUTTOL, TOLER © ;SET INITIAL ALIGNMENT TOLERANCE 
“SE 853470 823737 001232 016132 oMP OUTCYL, OPB*CYL :SEE IF SUTER CYLINDER 
| PEF D0847— 901422 : BEG 48 FIT! 
| 788 903500 0239737 co1226 016132 oMP INCYL,DPB*CYL SEE IF INNER CYLINDER 
' 783 302556 o01426 BEG 4$ :BR IF 
|} ?C 909510 O33737 co: 001219 MOV MIDTOL, TOLER : CHANGE TOLERA NCE 
| fei 902518 923737 OOlz30 O18132 CMP MIDCYL,OPB+CYL =; SEE F pLTc GNMENT CYLINCER 
| «P72 908524 951414 8&9 3$ BR I 
| 273 993526 104401 oc20447 TYPE BADSYL :REPORT INvaLIO ¢ CYLINDER 
/ 274 002532 9097 Be ONEHD TRY TT 
| P75 908534 023727 oo1212 000633 :8: ay MAXCYL, #411. REOY 3s nn 
| 77B 908542 001403 BEQ YES Flere 
77> Boes44 104451 o20166 TYPE “CYLHS6 ate 496 DEFAULT MESSAGE 
| 77S O025s0 9004 5R i 
/ ?7S 902552 10440: 929122 23: TYPE YeER a5 DEFAULT MESSAGE 
736 902556 17 DOles5 016132 38: MOV Hier DPS+CYL i NOER 
' PET «80s564 16440: 9203: 48: TYPE OR THE HEAD AODRESS 
782 002570 904737 004270 JSR te, GETNUN SET THE AD ADDRESS 
| 783 392574 90041: 35 S$" :*CR’ EN TERED 
| 7BS 602576 81263? 901172 - MCV (SP)+, SHEAD ;SAVE THE HEAD ADDRESS 
785 S0e602 922737 900022 001172 oMP #19. , SHEAD TRODRESS VALID ? 
786 O526i09 092007 BGE &$ :BR IF YE on 
787 OSeele 104401 o20420 TYPE =, BADTRK :INVALIO HEAD ADDRESS MESSAS 
782 S0ebie 0007 38 aes RY AGAIN 
783 902620 194401 920964 5S: TYPE HDZERO ;HERD DEF ULI MESSAGE 
730 Sos6e4. OOS037 95117 CLR © SHED :cLEAR HER D STORAGE 
731 802630 084537 00373€ £$: ISR RS DRIVER TQ THE SPECIFIED <¥LINCER 
732 090634 dOcics -WORD «SEEK KC 
733 052636 004737 90703 ISR PS CHECK SCHECK 7 HE HEAD 
733 COee4e 000137 O51744 HP OINDT ;GET THE NEXT DRIVE HEAD 
ese LL REFRHPASAA SFE SSSE SSSA REPESASALLEAEAARSRARARSAAHTA SAAD KH RE TATA et 


. 
-- <= oo ee ne ee ee ee a a anh ee te 
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23932553 MAIN ROUTINE - cHECK ALL HEADS AT ALL ALIGHMENT CYLNDERS 
238 .SBT7L MAIN ROUTINE - CHECK ALL HEADS AT ALL ALIGHMENT CYLNCERS 
aaa Sf RRARARAAASLASAFRAAAHLALAAAAFLE KSLA SLALAFLAA RFA FASREF LEAFS FSF SS 
art 
Se DOE D133 001230 G1EI3E CYLOER: MOV —MIDCYL.DEBsCYL START AT THE ALIGNMENT C11 INDEF 
S53 Ocsesy 13737 So1z24 55515 Moy MIDTOL TOLER SALIGNWENT CHECK TOLERANCE 
804 Ooees2 OO4S37 03736 JSR River :SEEK TO THE ALIGNMENT CYLINER 
865 553666 900105 . WORD = Pee DRIVER SEEK COD 
30s Boe67o G17O4 Digei0 hOY - BHEADI RY ROORESS OF ALIGNMENT HEAD SELECTION To. 
S5> S0c674 904737 503014 Pe SCHECK ALIGNMENT, ALL HEADS, AT THE GLTSUMENT + 
858 892700 013737 001225 016132 Mov INEYE DPBecyL © SCHANGE TO INNER * CYLINDER 
309 9928795 3:3737 ODlese 201215 MOY  QUTTOL, TOLER © :CHANGE TOLERANCE VALUE 
519 O8a719 504537 O0373¢ J§R sa RS, DRIVER :SEEK TO INNER CYLINDER 
811 S220 990105 .WORD SEEK :DRIV R SEEK C 
S!5 O5e7s2 13704 O0le34 foe TABLE, R HANGE HEAD TABLE ADORESS 
S13 Sdervag S09rs7 «003014 I5R tEHECK AL TGNMENT BT INNER CYLINDES 
S14 Ode7a2 O1gr3? OOiese 018132 Moy site sh DPS*Cv, CHANGE CYLINDER TO CUTER CYLINCER 
81s S0e740 So4s37 0037 35k :SEEK TC OUTER CYLINDER 
BIE Sost44 0015 WORD ;ORIVER SEEK CODE 
5:7 Soer4e Oo4ra7 003014 358 ae is :CHECK ALIGNMENT AT OUTER CYLINDES 
Sig O0s7s2 013737 81230 018132 MOV MIDCYL.DPB+CYL 60 BACK TO THE ALIGNMENT Z\LINCES 
513 O0e766 013737 01224 Odlelc Moy MIDTOL, TOLER :CHANGE ALIGNMENT TOLERANCE 
859 O0s766 04537 OOsra6 JSR sa RE DRIVER : SEEK 
fe ¢ w é V ‘ Pad e HU fae! TSSLE 
| §S§ Shsooe Sagss3 BAREIS TSR PC eae E Set § ALIGNMENT <YLINCES 
| S24 803004 io4451 20552 TYPE =, ENONSG : TYPE DONE’ 
gos f52010 Sdo1s? Shiny mp ENT TE exe DRIVE OR HERD 
| 856 Sas9ry Sis437 BSiire 18: Moy (R4)*,$HEAD «MOVE HEAD ADDRESS FROM TaaLe 
| $2 Bape iocwos eer [BR IF END OF TABL 
| $38 553022 964737 cozose TSR = - BC, CHECK :CHECK THE ALIGNMENT 
| $28 B5562 850: 36 1§ :GET NEXT HEAG VALLE 
| 836 563556 sdde 2s: ATs 88 : RETURN 
-k bl 
exe LL PRSFSSSESSSSSSESILESSSSSELESSSELSSSSSSELLERSLERERSSRELSLSFELEP LLY 
fis SE77L ROUTINE TO FIND THE TRACK CENTER 
pe 5 PRESSE SREESDPEEERERSESERESESERES PERSE ERERSESEDREREERESEEEEEES 
Bs O03035 205037 901176 HECK: CLR © OFFDIR CLEAR THE OFFSET DIRECTION INOICATCR 
Ee ipeakiok bose ak (gab ia fra = BITINO : CLEAR THe SIGN SIT INDI CATOR 
eyo 53042 Fisrde 561215 Sy Heuos Re ;MAXIMUM BOS Tive OF SET VALLE 
“] eae Bis7ts SStz20 may = MAXOFF:R : MAX MUM OFFSETS 
pig Sostse Oc370) Seiese Sy TABLE S81 ;OFFSET CODE TABLE ACORESS 
ae apa Scam O11 7. Roy, SEA “CSP: HEAD VALUE 10 STACK 
oT e es] \ : 
ees oes corey o28212 SSR. ROUT. AP ee REDA UlTH Hear ADDRESS 
5x5 FxEK03 EeTSae INT? Seta Sern, EeaoR RETURN 
eve fens 176.37 2:88: 3 B22 By )+,0PB6c00E iar iin VALUE TD PARRIE TER gL Sch 
Bag S550 Itsene Shes: cS ee6., ig 
Bex RRETRS AOR LRS OF :BYPRES Rey best DIRE: : THN, iy 
ce; SE5T5 isi57 cresz: 23 Sug Sey .tepeccee feeveete SEF? OAc A Bicck 
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os os Sa ~ ee Te =: Se “~sS "Sa"s CENCES 
ceRTL. 209 ROUTE ocieee: “= a a5, i ad VALUE 
2 90313 23 zzzze? "Ee RS SArVER 3 
si SG Bae SM “eiBe: ete ait J Pay 
S32 eeiss GARE 02 st St Tike INT Ri SISN VALUE STORED 
BP pears, serny, UES se Fein pent Te sien BIT ThOICATOF 
Ss =e rt r AP? Sse ee ys. oA PR GeROO ave T S GN 2 “ 
| 8&8 ae Mec 3: pee =252.¢ ai SeSeRPOF, s NCNG : STORE THE SIGN SHARGE i 
Ss ate rit M1E:cs ug F. 3 8IT35, REG*RPOF  : KEEP oy THE SIGN VALUE 
S51 03154 & en Ric.as xeeiad a REG*RPOF SINCNG 3S SI6N CHAN wo iC 
er ibe SSeics 3 OR pene HIF OFFSETS NOT COMPLETES 
ag ol Bi; #Su0, 2SuR s SHE CK 
EPS ate Barone Od 8S Fen, = § SREPORT OUT OF LIMIT CONDITION 
| §§8 S5530e OSs: sss :SEE IF LOOP ON ER POR 
$3 223212 200534 2 23 ss- EBL ; TYPE THE HEADING LI! 
i 574 OSs2lz2 ‘sé wil. 4 - aN 17 ae e T 
| €:2 Soxeig Mice Me Jidaper PE THE HEROER vow 
| 2 see Avates ThlBR) Nn ny “a, 8-1, TOPLN :SET THE BYPASS 
Ss": 3 +t Uled di we ress oe +72. Z cp i 
$74 7, anes 178: Boy.  SHEAD,~ (SP) ::$8VE See en even 
Sar A 405 nent Big’ 5 CYL. :;SA DPS+CYL FOR ir ~ IT TAN 
| BR Re RE areas ee: Oe 
so2 Sosa TOL G17e 83 TYPE «= SCRLF__ rH re ERROR ? 
aa ee BIT  aSwiS,asur HALT IF = 
Bes mises Bas che a a ahr 133 sHEAQ Just TyBED OUT OF TOLERANCE 
| BS Soars v3: Fer BBR :SEE WHICH DIRECTION 
| He BRSESS GEESE? ouire = i CS ;BRANCH IF FORWAR 
| 888 903376 OO1g7¢ 35 EH REVERSE DIREC THON ee : 
8S? 993360 000702 % as: or OFFDIR TNISHE pire 
Bes Gossce biti> — fe BO gant SIGN CHANGE VALUE 
gen Bose BOLCL: ‘. “Jy «RE, Pus 734 TIVE OFFSET VALUE 
So BER REY mee = Bare Satie 
So Be Ge Bilis mY RO Fo 
se BeSsce 5 MOV MAXOFF , i ION VALLES 
EAL. wee ot, as 
? COM 
Bee BES Otel po1z08 cLR 1TINO i SeRaT Re EVER GERSE OF FSES 
E35 Basauy Sareea BR 3 SIGN Besce VALUES 
Bao Hetice RESPES 001204 38: OD PLUS, RE ave: B 03 
aol ny RUS SE wae are 
SU e wsew T 
oe en So Ei 
sc CO23E4 0s4 Annan: [PSSuy = : sIT eSWC, SSNR T 
ie Sam Sias BN 118 BRANCH TF 


| 


ee | eee + eee 


AMO OM OO O.0O0 O00 OD 


CUITUTLIT LD o~- 0 -- 0+ 0-0 - +» opp 0+ 
GI. 01D IU Lotu eC. 


oO 


aDTurteree 
(n>. 


Bs TOs Atte 


iTV Cry CrVARVirVerververvilvarvelvirververvalvé 


Dadde 
« AD 
cate 





. RECS. 


* “ROUTIN 


02370 
ons 3 
10401 


peer 
diese 


C13746 


mer 


oO 
oOo 
. 


-—- oo 
om Oo 
( o-e-- 


929027 
BB0ES3 
920300 
nece32 
091235 
693736 
92034€ 
004275 


neco2e2 


0211e0 
say 


00:72 


MENT PROGRAM OMACYI2 27.855) 
E TRACK CENTER 


~16> 
P 4 


MP TOLER, Ra 
FREor {2 


13$ 
é: -( SP) 
TST TOPLN 


FEE 1B es 


MOV stash 


123 
Ov $HEAD ,-( SP) 
TYEDS 
MOV DPB+CYL,-. SP’ 
TYPOS ‘. 
MOY PLUS, -<SP? 
TYPOS 
TYPE,  $CRLFE 
cMP TOLER, (SP)+ 
BGE 14 
BIT eSW1S, 3SWR 
BEG 143 
MeL T 
aR 14$ 
133: BIT e519, ass 
148: Ey sath. 2SWR 
5&9 18$ 
L$: IME CHECK 
ls8: RY PC : 


LRPRRERESE EASES EREREEPESESEEEA SERA PLERRESSREEERDEE ERED ESE SE RTERE 
-SSTTL ROUTINE TO SELECT HEAD FOR DDU CONTROLLED HEAD ALIGNMENT 


5 REFER AREAAAERASRAALSLARLSALASLLALALELSEREFSLLAAARLLFLARELALAALELEE 


DOUALN: TYPE » ALIGN 
CMP 1 ite hi 


BES 1 
TYPE ALNYSE 
eR 2 
18: YPE N2e4S 
23: MOV AIDEN» DPB*CYL 
IS& SERN" 
WORD OS EK 
23 TYPE NTHO 
sR sf GE TNUM 
8 
SMP (SP), #18. 
LOS 
4g: irre SQUES 
53: MOV (SP), HEAD 
SWaAS (SF 


27-APR-76 16:34 PAGE 20 


;9R IF YES 
; "POSITIONED AT 496° MESSAGE 
itt 


: cp F TRACK CENTERLINE WITHIN TOLERANCE 
i BH H om ¥ at OK. 

: R 

i CHEC K "COR LOOF_ON ERROR 

;SAVE TRACK CENTER VALUE 

; TYPE a ? 


ee THe 
YPE THE HEADER 
:CLEAR THE INDICATOR 


53 S8VE SHEAD FOR TYBEOUT rs 
i300 TYPE--DECIMAL ASCIT WITH SIGN 
SiSAVE DPB+CYL FOR TYPEQUT 
TYPE--DECIMAL ASCIT WITH SIGN 
: SAVE PLUS FOR T YPEOUT a 
ee P YPE--DECIMAL ASCII WITH SIGN 


F HEAD IT TOLERANCE 

Md FERC 
ise IF et TYPED OUT OF TOLERANCE. 
:CHECK FOR SWITCH 1 : 





:D0_ THe HEAD AGAIN 


; TYPE ~AL IGN’ 
:RPOW’S 


foo gee 

see The “KEYBORRD 

EP CAN'T BE GREATER THAN 18 
gg QuESTION HAR 


STEAD NUMBER FOR TYPEOUT 
;PUT HERO NUMBER INTO LPPER 3)7E 


---- 


MD-1;-D2RTo-8, RPOY 56 HEAD ALIGNMENT PROGRAM MACY! 27(ESS) 27-APR-76 16:34 PAGE 21 SE3 0032 
azaté 559° ROUTINE TO SELECT HEAD FOR DDU CONTROLLED HEAD ALIGNMENT 

360 903626 04037 o15012 JSR RO, WRT. RP :; 

ae? ShSPS8 8Sa58 RBDA RO FEO op 

363 005634 Soi7d4 INIT STNCOPREC TABLE PARITY ERROR RETURN 

365 903636 Ocd7Ss BR 38 ‘WAIT FOR NEXT HEAD ENTRY 


355 

955 

356 

36° 

369 

69 

$7i 993542 10440; 020059 
S72 033644 912737 011610 
$73 003652 QO4737 957034 

S74 903655 0137 007132 
$75 GvU36 9050 

$76 003664 0137 O0leie 


016132 

$80 003702 O6e706 900004 

982 003710 Oleb3s7? Ol6132 
0CS726 

903726 904537 O03736 

0105 

986 CO3724 ppoaen C0240 

$88 203732 [00137 01744 


4 
8 
a 
z 
fe 


o wr fe tet wW 
wb £ 


3996 903736 012537 


poe ‘ 
_ $994 Q087B4 O3e737 ocozoO 
| {D0 003774 032737 oecode 


94092 fe 
94004 ges 019000 


SO4i4 coecoc 
304024 032737 001400 


» +6 +0 -+0-29--9 = 


MOoawnooano 


901249 


916136 
OlE136 


016136 
916136 
016136 





















£ E SRESRARAAAAARASAAERRERAERSFA LAS SLLE PRES RESALE EARARLLELALL LAD SAFLFS 


.SBTTL ROUTINE 10 PERFORM 5.000 RANDCM SEEKS 
pL RAPERRRARRERERRESAERERESEESEREERELERERAARRRARELE LEASE SEES ESE ESD 


RANDOM: TYPE EXER ;TYPE ‘EXERCISE’ 
MOY #5000. , SEKCNT : NUMBER OF SEEKS 
1$: JSR CLE THE RANDOM NUMBER GENERATOR 
Mov SHENUM, - (SP) ‘BUF UPPER RANDOM NUNBER ON THE STACK 
CLR (SP) s UPPER pivi0 
MOV MAXCYL -(SP) fut oe VISOR. ON 
PC, SD1V ;GET THE REMAIND RCRANDOM CYLINDER_ADDRESS 
CMP (SP), DPB+SYL SEE IF SANE RANDOM CYLINDER AS LAST 
23 :BR IF DIFFERENT CYLINDER 


BNE 

ae ee SP sROTUS UST re STACK POINTER 
2s: MOV (SP)+,DPB4CVL = ;PUT YL "ADDR IN THE CPS 

TST (SP)+ : SORRECT THE STACK POINTER 

JSR RE DRIVER ;00 THE SEEK 

WORD SEEK ;SEEK CODE 

DEC SEKCNT :D ial THE SEEK COUNT 

BNE $ :B N 

JMP INIT ;RETURN TO COMMAND ROUTINE 


5 RRRRRRERREAREEES ERLE PEAR ALRERAFRERERERRELERREE SEARS AREER ES ELE TE 
.SBTTL COMMON ENTRY TO THE RPO4-“S/’6 DRIVER 
bp ERARRERRARERARS ERAS EERRARERRERERRE RED EERRERER EASA EERE EEE EEE EEE 


DRIVER: MOV (RS) +, DPS+COMND : SOMMAND CODE 
18: JSR RO. RPSS RIVER ENT 


DPS ' ata PaRAMe TER BLOCK ADDRESS 
BR 1$ :REQ UEST NOT ACCEPT 
23: TST OPE+STATUS i SEE ni ORDER aGoteee 
SFO 2g T COMP 
OMT 4g ‘BRAN CH IF ERROR 
3$: RTS RS 
4$; au sBIT7, DPBeSTATUS O10 e & ORDER TERMINATE ° 
iT eerTi4se1T13¢9rTbe+e] 01 D ts TATUS DRIVE CFFLINE OR 
: sNON- XISTENT * 
Bry agrT12, opeestarut® *ORIVE UNSAFE ? 
a sBITLLIBITIC. pretstat 5 -UNCORRECTABLE PARITY ERROR ° 
B! HBITCOIBITOS.DPBSSTATUS TIMEOUT ON THIS DRIVE 


EL TTT 


OdVIOONO OoOoOouou 
DLMUTErHUTTOfrubee ee ee 
—O0ODO-*ITULWlU-OWWO107U 


BYSVRVER 


SO) 
Gru. .00~0 


COCIOVdIIOIOOUIMIVOOOAVI000N9 
ART CLEELS 


NNN0O 
by ES s: 


0 bb 0 2 0 0-2 2 ho 0-8 0 2 + 0 0 B= 0 hs 0 ho b= 0 -= = b- 9 bh 0 2 Bo Bho bo po po 





eRIC=A, 


DeRIe. 903 


904032 


004110 


004114 


sssesssas 
ae oat 5s ££ 
= = bb b= 8 Fo a pe 
FESERRURE 


Bee 
SE SNe SS loses eS 


TUrVUIly eo 


moo 
Tie 
x 


onono 
—— 
1 Je 


s 
Pods 


j=] 
o-- 
Ps 
— 


Oo 
-_ 
rm 
“SS 


091000 


O°C00& 


001000 
009005 
001744 


009306 


atte 
175i10 
004290 
004155 


175102 
004232 


RPO4’S/6 HEAD ALIGNMENT PROGRAM MACY11 27(655) e7-APR-76 16:34 PAGE 22 SES CC33 
COMMON ENTRY TO THE RPOY/S’6 DRIVER 


BNE «SS 88 IF YES ; 
ERROR i) :REPORT DRIVE OR DATA ERROF 
BIT #SWO9, 2SWR ;LOOP_ON ERROR ? 
Fo 9-35 :5R IE NOI 
US #6, RS :CORRECT RS FOR LCOP 
BR 3$ : RETURN 
eS: ERROR 16 :REPORT DRIVE UNAVAILABLE 
QR 10$ :CHECK FOR LOO Q 
7s ERROR 11 ;REPORT PERSISTENT UNSAFE 
BR 108 : CHECK QR LOOP 
8$: ERROR 15 ZUNCORRECTASLE PARITY ERROR 
R 10S CHECK FOR 10 
93: ERROR 14 ‘SOFTWARE TIMEOUT 
io$: BIT  — sSWO9,aSWR;LOOF ON ERROR ? 
BEQ sd ;BR IF NOT 
58 HG, RS ;CORRECT RS FOR LOOP 
118: NP sINIT SRETURN TO USER 


fy RARARSRASRAAARAARAERAFRELHAAARERLELARELLAFLAFLRERFLELATERE SELF AS 


~SBTTL SUBROUTINES 
5 REREREREREE RRR ARERPRESESE LSE ERREREREREREREED RAR RESERER ARLE ERS 


;THIS ROUTINE WILL DETERMINE IF_THERE IS A CLOCK ON THE SYSTEM 
+> Aad THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK. 


PC, aaST.CLK 


JSR 
; RETURN 
ST.CLK: MOV Ri,-(SP) :SAVE RI 

MOV BERRVEC+2,R1 SAVE AND SETUP TIMECUT VECTO: 
MOV (R1),-(SP3 


CLR (Rl) sLEVEL 0 
OV -(R1),-(SP) 
MOV #1$. (RL) :$0 TO 1$ ON TINE UT 


TST apkes :1S THER A kul 1 ; 


JSR PC, ST.PCLK : START HE Kid 
BR ;GO TO EXIT 
18: CMP (SP)+. (SP)+ :CLEAN UP THE STACK 
MOY #2, (RI) s1F TIMECUT GO TO 2 
TST aks :IS THERE A KW11-L’ 
JER PC, ST.LCLK s START THE KWI1-L 
23: CMP (SP3+,(SP)+ UP 


;CLEAN UP THE STACK 
3$: MOV (SP)+,(R1L)+ ;RESTORE THE TIMEOUT VECTOR 
MOV (5P)+;(R1)+ 
MOV 9P)+, Ri ;RESTORE R1 
P ;RETURN 


ST.PCLK: MOV SRVCLK, JPKV ;SETUP THE KW11-P VECTOR 


+ } 
MOV #300, aPKV+e 
MOV of Soh sCOUNT ONE TICK 





o0000 


BO IH Loo wwe VUE wre 


Ub 0 0-* 0-- 8-2 8-= = 
IWONOUW CWE O 


H 


>-+0-- 6 9-8 -- & = 8 & -+ b— & = 8+ &-* b= & =F 8 6 = = 02 = 8 
0+ 0-+ 0-= = 0+ 9 -= 6 << 9 6 9 « b= = 6 = = 9) 2 2 0 


mu 


MO-11-O2RI0-A, 
cRIC.009 


O04222 
004230 





SUBROUTINES 


012777 
c00207 
Ole?" 


300902 


009115 175020 


004256 175016 


90930 
000:9 


004376 


000060 
000971 


ocoos0 


oo000e 
00008e 


001160 


RPOY’S/“6 HEAD ALIGNMENT PROGRAM MACY11 27(655) 


MOV 
RTS 


ST.LCLK: ae 


my 


SRVCLK: MOV 
JSR 
RTI 


;ROUTINE TO GET 
; CALL 


: JSR 
: RETURN 
; RE TURNE 


GETNUM: MOV 
1$: 


ROLIN 


2s: MOVE: 


#115, aPKCS 
PC 
#SRVCLK, ILKV 
#300, dLKV+e2 
#100, aLKS 


-(SP) 
Bee ep 


PC, GETNUM 


(SP), -(SP) 
(SP)+,RO 
RC,6$ 


2 

tg 2<SP) 
#2, (SP) 

=} 3 

(SP)+ 

(RO) 

0 

{ QUES 
(SP)4, (SP) 
PC 






27-APR-76 16:34 PAGE 23 


ta ONG EN.” COUNT DOWN” 


ore aca NT DouI", “MODE 1 (REPERT)", 


‘SETUP THE KW11-L VECTOR 
ssreyr THE KWli-L 
; RETURN 


ey 3 PER Ue KoJN MLL ISECONDS 
RETURN AFTER INTERRUPT 
DECIMAL KEYSOARD ENTRIES 


TERED 
: NUMBER ENTERED, CONVERTED NUMBER ON THE STACK 
5 PRI sere + FIRST CHAR 

CA 
SFIRST fee F a *CR’ 
BR IF IT IS 
ip KUP_THIS “ae 
a ae 


;MAKE SURE THAT THIS CHARSCTER 
:1S A DIGIT TOE TWEEN 0389 


#2 
1 FOR LATER 


eae ISN'T ALO 
Sere *T ALLOWED 


at ROCRESS 
PARTIAL TUBER FROM STACK 





;TRY AGAIN 
RESTORE THE PC 
;RETURN 





ESR EGSASBENRA PSS TONY 
z 


2 


0 = pe ee be 0 be Bo be ho sb 0 bs bs 8 2 2 0 2 2 be 0 fo hme he be b-0 fo 2 Fe 0 hme bo B-0 P 9 b= O92 8-2 BB BF Bo Pe 


= =o be a be he he Be Oh bb 82 Bs bo bb 0 bo Fo 0 Bs Bo Bo ob ob 0 bh = 2 82 8 = Os Ps Be pn poo 
SNINNGOCOMN MMOH MOru uw ul 
HAZING SSUFALGe Oo. Vou eer 


oA, RECOM. 3 ft ig ALIGNMENT PROGRAM MACY11 27(655) 27-APR-76 16:34 PAGE 24 


001161 


001114 


001116 






5p RRRRRERERERE ERE RERRERREE EEE RRARERARERE EER EAEE EAE EARS SEF ESSE ODE 
-S8TTL MACRO ROUTINES 
.SBTTL ERROR HANDLER ROUTINE 


; ERREEPEERERRAEE RARE REEL RE EERED RARER EREEEREEA EEE ELLE EASE E EEE EES 
: ATHIS is Witt pe ERROR FLAG AND THE ERROR COUNT, 


: ¥SAVE THE ROR ITEM NUMBER THE ADDRESS OF THE ERROR CALL 
:sAND GO TO SERRTYP ON ERROR 
*THE SUITCH OPTION PROVIDED BY THIS ROUTINE ARE: 
| Sui 3e1 INHIBIT ERROR TYPEOUTS 
ERROR N s ;ERRORSEMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR :;TEST FOR CHANGE IN SOFT-SWR 
MOV R1, DRIVE 
MOV R23) ATTN 
7$: INC SERFLG 3;SET THE ERROR FLAG 
BEQ zs :DON’T LE THE FLAG GO TO ZERO 
MOY STSTNM, ADISPLAY HOISPLAY TE TEST NUMBER AND ERROR FLAG 
INC SERTTL RROR COUN 
Hoy ), SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
MOVB site SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT BIT13, aSWR aa TYPEOUT IF SET 
BNE Hi ;;SKIP TYPEOQUT 
ISR PC, SERRTYP ::G0 TO USER ERROR ROUTINE 
at TYPE  ,SCRLF 
o$: TST aSWR : ;HALT ON ERROR 
BPL 3$ ::SKIP fn ER CONT INUE 
T s° T 8 
“ ORSUR bi teet OR CHANGE IN SOFT-SwR 


RT ; :RETURN 
.SBTTL ERROR MESSAGE TYPEOQUT Roi ine 


5 RRR RRR R ERE REE EERE EERE EER AAR EEEE ER EER ARERR ERE RE 
: ATHIS ROUTINE USES THE “ITEM CONT mie Bs ( prene) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN 
;#AND REPORTS THE APPROPRIATE INFORMATION LONCERNING THE ERROR. 


SERRTYP: 
T SCRLE :;"CARRIAGE RETURN” $ “LINE FEED” 
CCR RO, ~(SP) + BT CKUPCTHE ITEM INDEX 
Greg JeSITEMB,RO - 
BNE 1S Riek ITEM NUMBER Is ZERO, JUST 
MOV SERRPC,-(SP)  ::SA SERRPC_ FoR TPE OUT 


;;ERROR ADDRES 





“ERROR TABLE” (SERRTS), 








—p~— > 


SBBSRREBEeS dalle! 


1 
1 
1 
11 
1 
1 
1 
1 
i 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


92 
93 
34 
9s 
36 
97 
98 
99 
00 
C} 
Oe 
1203 
1204 
OS 
1206 
1208 


vs) 


= & + b= b — & ~ = b+ > = & - — 9 P= = & 9 
-_~ 


~S 


» RPO4’S’6 HEAD ALIGNMENT PROGRAM 
ERROR MESSAGE TYPEOUT ROUTINE 


1$: 


2s: 
3$: 


4$: 
S$: 


6$: 


7$: 


98: 
10S: 


118: 


MACY11 27(655) 





RO 
RO 


RO 
#SERRTB, RO 
(RO)+,2$ 


0 
$CRLF 
{Ro)+, 4g 


0 

SCRLF 
R1,-(SP) 
(RO)+,R1 
RO)+,RO 
(RO)+ 
a(R1)+,-(SP) 
3f 
J(R1)+,-(SP) 
(R1) 


RTS Cc 
-ASCIZ 7 / 


.EVEN 
-SBTTL TYPE ROUTINE 


27-APR-76 16:34 PAGE 2S 






;;GO0_TYPE--OCTAL ASCII(ALL DIGITS) 


tIBBJUST THE INDEX SO THAT IT WILL 
:; WORK FOR THE ERROR TABLE 


;;FORM TABLE POINTER 

;;PICKUP “ERROR pear POINTER 

1 aE TYPEOUT IF NO POINTER 
TERROR SSAGE™ POINTER GOES. HERE 

rf “CARR AGE RETUR et Cine feeb 

+ Kip “Typeout IF g 

;;1Y A HEA 


jFDATA HEADER” POINTER GOES HERE 
OVER AGE RETURN” & “LINE FEED” 


SAVE R1 
$30 CKUP “DATA Ls POINTER 
;BR IF_NO DATA TO BE TYPED 
:;PICKUP "DATA 4p lp POINTER 


DECIMAL 
: SAVE a(R1)+ FOR TYPEOUT 
33G0 TYPE--OCTAL ASCII(ALL DIGITS? 


Hep Ty a(R1)+ FOR TyER OUT 
3760 Me eg yr'8 WITH SIGN 


BR fe + oa 
fe TWO(2) SPACES 


;;RESTORE R1 





s RESTORE RO 
::"CARRIAGE RETURN” & “LINE FEED” 
::TWO(2) SPACES 





8 LROUTINE 10 TYPE SCI? MESGAGE MESCAGE MUST TERMINATE WITH A 0 SY 
:#ROUTINE TO TYPE ASCIZ 
# THE ROUTINE Wl WILL IN INSERT A NUMBER 3PM i AFTER. A ALINE FEEn. 


3; #NO 
tINOTES: 
s ENOTES: 


a 
. 
’ 
© 
J 


; OR 





NULL CONTAINS THE CHARAC 
SFILLS CONTAINS THE NUMBER OF 


SFILLC CONTAINS THE CHARACTER TO FILL AFTER 


*CALL: 
a) USING A TRAP INSTRUCTION 
TYPE » MESADR 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 





ILLER CHARACTER. 
FILLER SHERACTERS REQUIRED. 













-O2RIC-A, 
009 





TYPE ROt 


168082 


001157 


oo000e 


005110 


174072 
000002 


“pooooe 


B05: 


;HORIZONTAL TAS 


8S: 
9$: 


STYPEC: 


1$: 


RPO4/S 6 tine ALIGNMENT PROGRAM MACY11 27(655) 


MESADR 





$TPFLG 
1$ 


RO, -(SP) 
a2tSP) ),RO 
(RO)+, -(SP) 
4g 


(36}t RO 
?* (SP) 


BHT, (SP) 
aCRLF , (SP) 


(SP)+ 


SCHARCNT 
e$ 


PC, STYPEC 
SEILLC, (SP + 
S$NULL , -(SP) 


1(SP) 


STYPEC 
SCHARCNT ° 
7§ 


PROCESSOR 


Po, gi opec 


87; SCHARCNT 
9s" 


| de 
aSTPS 


STYPEC 
oe a$TPB 


CR, 2tSP) 


27-APR-76 16:34 PAGE 26 






SEQ 0037 





:i]S THERE @ TERMINAL? 
HALT HERE IF NO TERMINAL 






i: V 
; SAVE and 
;3GET SS_OF 70 6 rYeED 
: PUSH ie TEN THE T La ONTO STACK 





iit STOR pore “ OF a: STACK 
ts ADJUST RETURN PC 

;;BRANCH IF <HT> 

;;BRANCH IF NOT <CRLF> 


iY «CR><LF> aad 
TYPE A CR AND L 


+ CLEAR CHARACTER COUNT 
;;GET_NEXT_ CHARACTER 

YPE mr CHARACTER 

por a eee CHARS. 
LER. CHARS. " NEEDED 
CHAR. 


T 
S A NULL NEED TO BE TYPED? 

3 BR if NO--GO POP THE NULL OFF OF STACK 
33 YPE ° NULL 


;;00 NOT COUNT AS A COUNT 
LOOP 





















; REPLACE TAB TAB WITH SPACE 
H ARANICH F ANOT AT 


it Bop SPACE OFF STACK 
;;GET_NEXT CTER 
;;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3328 ange A CARRIAGE RETURN? 


ANC 
$3 YES=-CL AR CHARACTER COUNT 


XIT 
iTS CHARACTER A LINE FEED? 
; }BRANCH IF YES 


;COUNT THE CHARACTER 
t | CHARACTER COUNT STORAGE 





WWOIWOILIGIGIGIG) 
b= b= p= 92 bb bps ps 
WONWUI£CWrMe-O 


SANS 


> + 0-+ 0 9 -+ 0 -= = b= b= po peated tadtadtadtadtadeadtadtadead tadeadtadead 


SRS Be Uo 


2a 


arias 
RARER 


td 
BR 

- Oo 
o Let) 





005337 


005337 


005341 


005336 


MO=11-D2RJC-A, RPOY/S/& HEAD ALIGNMENT PROGRAM MACYL! 27(655) 27-APR-76 16:34 PAGE 27 
ZRJIC. TYPE ROUTINE 


1284 005112 000207 
1285 


$TYPEX: RIS PC 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
5 EERE RRA E EERE EERE E ER KERR REAR EERE EERE EE EEE EEAREE AE EE EERE EE 


tETHIS ROUTINE IS USED TO — A 16-BIT BINARY NUMBER TO 4 &-DIGIT 


;#OCTAL (ASCII) NUMBER_AND T 


YPE IT, 
: #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;*CALL: 
ty MOV. ‘NUM, -(SP) 
0s 


a TYP CALL FOR TYPEOUT 

3% -BYTE N jiN=1 1 TO & FOR NUMBER OF DIGITS TO TYPE 
7% -BYTE MM >:M=1 OR 

3% ;;1=TYPE LEADING ZEROS 

i* ;;Q=SUPPRESS LEADING ZEROS 

’ 


; *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


; #STYPOS OR STYPOC 
*CALL: 


iy MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

i TYPON ::CALL FOR TYPEOUT 

; #STYPOC---ENTER HERE FOR TYPEOUT OF A 1S BIT NUMBER 

:# MOV NUM, - (SP) ;;NUMBER TO BE TYPED 

i TYPOC ;;CALL FOR TYPEOUT 

$TYPOS: MOV a(SP),-(SP) ;;PICKUP T 
MOVB 1(SP),$OFILL  ;;LOAD CERO TL SH TCH 
MOVE © (SP)+, SOMODE+1 j ]NUNBER OF DIGITS 0. TYPE 
ADD #2, (SP) :: ADJUST RETURN n ABORE 
BR STYPON 

STYPOC: MOVB #1,S$0FILL SET THE ZERO FILL fuitcH 
MOV #6. SOMODE +1 ae FOR + DIG 

STYPON: MO #5, SOCNT $3 yenet TION SaNT 
MOV R3,-(SP) 


MOV RY, -(SP) LSE fia 
MOV. «RS = (SP) SAVE, RS . 
MOVE SORODES1 IiGET THE NUMBER OF DIGITS TO TYPE 


NEG 4 
ly Ei mpe BATT" S CBE LoD 
MO SOFTILL,RY :;GET THE ZERC FILL SWITCH 
HOV (SP), RS s $PICKUP THE INPUT NUMBER 

is: ROL Bote Hee INTO c 


12 
fs re 
2s: aor Fs ‘ ‘Ban THIS DIGIT 
cs OF tt 


pers — SUnoDE tee Fars Die 
BPL ::BR IF NO 





SEG 0038 


Le - 


sis 


— 
eee 


o- 
, 


pigs 


irs) 
4 & 


0-0 +0 <p on-oe 
st 
. +£ 
£bsfue-- (9 


Agee 


unm 
*-L.0M 


0+ 0-6 0-6 <6 +6 --§-0p © 
wy 
tote 


(ltl 


6 +0 -+8 «6+ 
GIs 
mum 
(ul s. 


GI IGIGIGIGD 
Firs blake tate 
ul t-Gnue-Co.to) 


ee et et ee 


e-e0-8 +6 
Sehtarheltap 


*e@- 
C.deude -C D.ande 2 


CGI GIG IMIG TPR Pe eal re 


sare 


3) 


aa 


+0 *0--0 20 0-09 0 


20 +6 -0- 
“dare 


=0 20 +0 0-0 0-0 
COICO 


n¢pco0D 00 10 (0 (000 +) 3 


Peer eer et ee 
Pel urea | 
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REOS 5 & HEAD ALIGNMENT PROGRAM MACYIL 271655) 27-APR-7& 36:34 PAGE 28 Sf2 2029 
BINARY TS ScTAL iAscIz: AND TYPE 
Q42703 17777 gic 177770, R2 361 RID OF JUNK 
0108 NE 4§ : 
: 7st oY i guPpRESs HIS 0? 
501493 | Boi‘ S ::BR IF YES . 
905254 4S: TNe By :1BON T SUPPRESS ANYMORE O'S 
652703 90g0so 875 8°O.R3 »:MAKE THIS DIGIT ASCII 
952703 900c4C S$: 315 a’ RS :iMAKE ASCII IF NOT ALREADY 
13033" 505334 MOVE «RB, 8 FOR TY = 
1044: 905334 “! TYPE g$ £360 TYPE THIS DIGIT 
SS33, 505236 "3: decS. SCNT ::COUNT BY 
3347 Bot 2g IIBR IF MORE TO DO 
452 LT &3 ::88 IF Do 
555204 NC RY TPINSURE LAST DIGIT ISN'T A SLANK 
555744 2 260 60 THE LAST CIGIT 
512605 $$: MOV (SP 1+, 85 : :RESTORE RS” 
513658 MOV (SP)4+'R ;;RESTORE &4 
012603 MOV (§P)4'R3 ESTORE 22 
Sissss code 2000s OY 21SP) 4(SF) TISET THE STACK FOR RETURNING 
6126is | may (SP 34! (SP) 
posose RT? RETU 
556 a¢ .OYTE 860 STORAGE FOR ASCII pratt 
a5 "BYTE 860 :; TERMINATOR FOR TYPE ROUTI! 
555 OCNT: cBYTE 8 sSOCTAL_ SIGIT COUNTER 
555 SOFILL: :BYTE 9 tig OF 
990550 OMODE: .WORD 6 NUMBER GF DIG i3 TO TYPE 
"SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUT 
Rta dh lt ld dp ttl ta t-te itn dh 
tSTHIS ROUTINE IS ‘USED TO CHANGE A 16-BIT BINARY NUMBER TS A 5-DIGIT 
r@SIGNED CECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
TeNUMBER IS POSITIVE OR NEGATIVE A SPACE OR @ MINUS SIGN WILL SE TYPED 
:#QEFORE THE FIRST DIGIT OF THE NUMBER. LEADING PEROS WILL ALWAYS BE 
: *REPLACED WITH SPRCES. 
s@CRLl: 
t+ Moy NUM, -( SP) ;;2UT_THE SINARY NUMBER ON THE STACK 
4 TYPDS ::G0 TO THE ROUTINE 
STYPCS: 
o1od4e MOV RO,-(SP) :;PUSH RO ON STACK 
Sr oi4e may Ri’ -(5P) :}PUSH RI ON STACK 
Bide4e Moy Re. ~{5P) :PUSH Re ON STACK 
SLOS4E Moy R3.-(SP) tTPUSH RG ON STACK 
S1DS46 MOV R5'-< Sp) ::PUSH RS ON STACK 
Ale74e oceoecc MOV 924200, -(SP ::SET BLANK SWITCH AND SIGN 
S:es05 9ooceo MOV 201 SP) °RS GET THE INPUT NUMBER 
160004 GPL 1$ ::BR IF INPUT IS POS. 
§0¢405 NEG RS ::MAKE THE BINARY NUMBER POS. 
112766 cooess ccc00o: MOVE og LSP) iMAKE THE ASCII NUMBER NEG. 
505009 18: CLR RO ZERO THE CONS ants INDEX 
012763 ocssse MOV a$08L R2 ::SETUP THE OUTPUT POINTER 
sieves nodase MOVE | tRA)+ :iSET THE FIRST CHA RACTER TO A BLANK 
65002 23: CLR R2 :CLEAR THE Bc NUMBER 
Siédo! ogoss4s Mov SCTBLIRO),RL 9: :G8T THE © 
1E215 33: sue R1 RE ::FORM THIS 82D DISIT 
‘ 


—<- me eet ee en me tee © ene ee ne nee 
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MD-]! 5 '_-= 
p=asé. 556 CONVER? SINASY 72 DECIMAL ANC TYPE ROUTINE 
1392 «005420 202402 BLT 4§ +:BR IF CONE 
~13$3 d0€422 d2 INC R2 :: INCREASE THE BCD DIGIT Sy 
ise Doeuse atte ws: ROD ORLARS 5;ADD_SACK THE CONSTANT 
1336 Be iss : TS Re 1 OMECK IF fe O1Git=o 
33, peeasg Terie rota 8, HISTItL Dot BONG SH EAD ING o°s? 
4d ‘ ‘ 8 
1398 555436 rats * aM! ne ::BR IF 
1459 905449 106316 53 SsLB (SP) ::MSD? 
149] 505442 103953 gcc 63 !:BR IF NO 
1803 BOSe44 316663 o090C1 ittttt MOV’ 1(SP),-i(R3) $:YES--SET THE SIGN 
1453 005452 3$2792 RaSHES &$ gis #'O,R2 TiMAKE THE BCO OLGiT ASctz 
2434 SoS458 H§e7Os coooso *§ 315 g° ‘8S :MAKE_IT A SPACE IF NOT ALREADY A CIGIT 
t455 995 115223 MOVE Re, {R3)+ SPUT THIS CHARACTER IN THE SUTSUT SlFFER 
i406 305464 005720 TST cRO)4 2: JUST INCREMENTING 
tu5? 60S466 820087 oonc1c CMP RO, #10 : CHECK THE TABLE INDEX 
i40s 005472 Oo2THE SLT 25 :66 60 THE NEXT DIGIT 
i i458 555474 903002 357 Q3 :'40 70 EXIT 
i419 Gd547— 910502 MOY RS, R2 33GET THE LSD. 
1431 905500 6095764 38 &3 :GO CHANGE TO ASCII ne 
1413 S92 105726 es: TSTS) 0 SP Hes THE LSD THE FIRST NON-ZE82" 
1413 05504 155003 BP. 93 F NO 
1414 905506 118662 i777? iPTrTES MOVE  -L(SP),-2(R2)  ::YES--SET THE SIGN FOR TYPING 
| ysis 306514 106513 35: CLR (RQ) 368 THE TERMINATOR 
| $418 OOSSis o12605 MOY (SP )e, RS ::POP STACK INTO RS 
/ dai? 906520 012603 MOV (SP )4,R3 ::POP STACK INTO R3 
i 2418 OOSSe2 Olebve MOV (SPi¢,R2 73POP STACK INTO & 
| $418 865554 913601 May (5P)+/R} ::POP STACK INTO fi 
| 3829 SNes26 912690 MOV (SP) + RE +s AF TACK INTO 
| $48] S85539 15446] oossse TYPE SDGLK “NOW TYPE THE NUMBER 
| 1422 055534 Oleees StSS52 cooo04 “oy 2.55) ,4. SP) ::ADIUST THE STACK 
| i8e3 805542 012616 MSY (SP)4° (SP) 
| $484 «BOSS44 090992 RT? s:RETURN TD USER 
| $435 S56546 923429 $278.: 10800. 
| (826 905550 901750 1906. 
| deer 895552 890144 189. 
|  Jasg B555Ey GRAF 10 16. 
| $439 O055&—_ S8cc64 S0GK: BLK 
| 1ag8. i yur routine 
| 754° 
; 3423 zs STLEFSESSSSSSSSSFERETRSFSSESSSSSSRSESSPSSSSSSSRSPLERSSSHRSS SSS 4S SOLE 
meet ick: "ENABL LS 
1435 OOSSEE onCDND STKCNT: .WORD 9 ;:NUMBER OF ITEMS IN QUEUE 
i435 906679 0000 TKSIN: .WORD ST INEUT POINTER 
1436 S5E572 859096 STKGSUT: |. WORD : OUTPUT BATNTER 
1927 855574 566507 STKSSRT: .8LK8 ? ::TTY KEYBOARD QUEUE 
43 etal tex} STKOEND= 
i352 cos6o4 EVEN 
PS nn) 
ies! ;#7K INITIALIZE ROUTINE 
ieee :#THIS ROUTINE WILL INITIALIZE THE Try KEYBOARD INPUT QUEUE 
i443 TeSETUP THE INTERRUPT VECTOR ANC TURN ON THE KEYBOARD INTESRUPT 
3,308 
448  eCALL: 
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Dit. 558 tFy INEuT ROUTINE 
:8 JSR PC STKINT 
;® RETURN 
aa eR ae eS ep 
wot, wees Si > weve ; 8 t V Ss Set TH 
Boeeig C19°3> Boseco Bbesss Moy nate IN, SR SIKH i FQUEUE INTO. THE IGA & OuTEuT © 
S624 Slev3> 005es4 c00ced MOV aSTKSR, QaTRVEC ii INITIALIZE THE KEYBOARD VECTCR 
005632 Disr3? 000200 000062 MOV 200 aetkVEC+s = :;"BR" 
555840 SoS7ST ifssc2 157 aSTKE: Zi CLEAR BONE FLAG 
305644 SieT7? Ood1dd «17se72 MOV #100 .dSTKS STENABLE TTY KEYBOARD INTERRUPT 
56° 205652 oco207 | RTS =—-C ;RETURN TO CALLER 


eek ~DERVICE ROUTINE 
: S ROUTINE WILL SERVICE THE TTY KEYS? ARO _INTERRUPT 
‘aay Rea Tie Qe FROM THE INPUT BUFFER AND PUTTING 


ACTER 7S A “CONTROL<C™ (¢C) STKINT IS CALLED ANC 
SSLPON RETURN EXIT is MADE TO THE “CONTROL-C" RESTART AODRESS . START. 


OOSES4 L1TTHE 172266 brisev: MOVE 3STKB,-\ SP) ::PICKUP THE CHARACTER 
ossic 542716 77550 376 atCin?, (SP) :STRIP THE JUNK 
OCSEES F21627 50050 Mp (SF), 93 213 iT A CONTROL ©? 
O9s670 96:007 BNE 1§ :: BRANCH IF NO 
7e 0440: |5677 TYPE SCNTLE :: TYPE A CONTROL<¢ (1C) 

05e7S 0047s? OOSe24 g3h PE STKINT PrINIT THE KEYBOA 
555702 Gos7es ey SP)+ ::CLEAN UP STACK 
505794 990:37 col46c IMP START! ::CONTROL ¢ RESTA 
S05710 O3ise7 868097 is: Me SP) a? 2:15 IT A SONTROL 3° 
RASTI4 §6§51054 BNE 2 ::BRANCH I 
BPG7Ig Speers? COCITE C0114 Me BSWRES, SKS 3315 SOFT-SWR SELECTED? 
005724 36:500 353 &§ 2:55 76 SwWR THANGE 
cos? 23: 
855756 Oe2737 oOnONe? 2esses ome 87 .STKONT ::IS THE QUEUE FULL? 
506735 «901004 SNE 33 riBRANCH TF He 
505736 19446: ‘cos7E7 TYPE =, $BELL :;RING THE TTY BELL 
BNETY2 «AOSTEE TST S74 3 CLERN HARACTER SEF OF Stack 
55744 90045: oR +3 X! 
59s74— Selse? ooccz2 33: Mp (SP;, #23 ii3S IT @ CONTROL-S? 
595752 901081 ' 323 :BRANCH IF NC 

BOS7S4 306077 1735164 cL 3S7KS DISABLE TTY KEYBOARD INTERRUPTS 
308769 905/726 TST (SP is :;CLEAN CHAR OFF STACK 
505762 105777 1732156 218 TSTa 39s SS TKS :;WAIT aé 

59&766 109375 x BP. 315 :;LOOP_UNTIL ITS THERE 
805770 li?74 172152 MOY a$TkB,- (SP) :3:GET THE CHARACTER 
095774 42716 177600 BIC etCi7?, (SP) ::MAKE_IT 7-BIT ASCII 
oneooe +O22627 d0cde2i CM (SP)+, be! ii1$ IT A CONTROL=6° 
S06554 Of1366 : NE 313 : !BRANCH IF NO 

O560% O1e777 00100 173120 “OY #109, 3$TKS ; ;REENABLE TTY KEYBOARD INTERRUPTS 
556014 occoce a RTT : RETURN 

FeSle 205237 onssee 323 No STKCNT : COUNT THIS CHARACTER 
06522 521627 codl4s me (SP), 8140 2:1 IT UPPER SASE? 
Soe3cE OCe4oS BLT ne : BRANCH IF YES : 
eeeesd «=felge? scocl7s ME (SP) 17S °:3$ IT A SPECIAL CHAR 
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St LSNMENT PROGRAM MACY!! 27(655) 27-APR-76 16:34 PAGE 3! 
Rut ao eee H IF YES 
rc #49 ::MAKE IT UPPER CASE 
43: MOVE opty. OSTKOIN ttAND PUT IT IN GUELE 
INC KQI :UPDATE THE POINTER 
CMe STKQIN, #STKOEND $360. OFF THE 
BNE 5 BRANCH IF NO 
7 MOV BS TKOSRT, STKQIN 1 RESET THE POINTER 
S$: RTI : ;RETU 


f SLSTRUALERSRAARLELELLLESLAFSFLSLSRFFRALLELRELLALAAFEAS FLL SEASAF ASS 
: #50F THARE SWITCH REGISTER CHANGE ROUTINE. 
;#ROUTINE IS _EN TERED af ten THE TRAP HANDLER, AND WILL 


PaSERVICE THE TEST HANGE IN SOF THARE SWITCH REGISTER TRAP 
-¥CALL WHEN OPER ATING. IK” TTY INTERRUPT MODE. 
$oKSWR: CMP SSWRES, SWR 31S THE SOFT-SWR SELECTED 
BNE 155 ::EXIT IF NOT 
TST8 asTKs ::IS A CH HAR WAITING? 
3PL 1S ::3F NOT, EXIT 
MOVS  § 3STK8,-(SP) 23 ¥ 
gre atC1??, SP) : MAKE 7 P-BIT ASCII 
CMP (SP), 9 Hie IT @ CONTROL-G’ 
BNE 2s i31F NOT, PUT IT IN THE TTY GUEUE 


Exit 


jE PRRRERERRAPSEE SERS RARER ESSER RELEEEEEERERRAEALEESSRRRES EL EELS ETE 
s#CONTROL IS Pata TO THIS POINT FROM EITHER THE TTY INT — SERVICE 





;#ROUTINE OR FROM THE SOFTHARE SWITCH REGISTER TRAP CALL, AS A RESULT °F A 

; #CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 

os: CMPS — SAUTOB, P:ARE WE RUNNING IN AUTC-MODE? 
SES(tOS ;:BRANCH IF YES 
TST (SP)+ : CLEAR CONTROL -@, QFE STACK 
JSR A ces FLUSH THE Ik Y IN PUT QUEUE 
CLR asrKS ::DISABLE TTY KEYBOARD INTERRUPTS 
MSV8 sal, SINTAG SET INTERRUPT MODE INOICATOR 

“ TYPE »SCNTLG 3 3EC KO THE CONTRCL-G (tS? 

SSTSWR: TYPE SMSWR SITYPE CURRENT CONTENTS 
MOV ies -(SP) SiSAVE SWREG FOR TYPECLT 
TYPOC ::G0_ TYPE--OCTAL ASCIICALL DIGITS) 
TYPE, SHNEW ;;PROMPT FOR NEW SNR 

138 CLR (SP) CLEAR COUNTER 
cL ~i SP) THE NEW SWR 

73: TSTB = QSTKS ::CHAR THERE” 
MOVE = 2STKB,-( SP) :;PICK UP CHAR 
BIC wtCi7?, (SP) ;]MAKE IT 7-BIT ASCII 
oMP (SP), 93 315 IT A CONTROL-C? 
BNE 95 : BRAN H_IF NOT 
TYPE $CNTLC YES “Echo CONTROL ~C 
ADD be SP :;CLEAN UP STA 
CMPB = S$INTAG, #1 REENSGLE FTy eEVBOARD INTERRUPTS? 
BNE es STBRRNCH IF NO 


———— 


MOTLIsDORIO<A, RPO4.S-S HEAD ALIGNMENT PROGRAM MACY! 27(655) 27-APR-7& i6:34 PAGE 32 
D2a3é.559 TTY iNeuT ROUTINE 


1554 006250 Q1277T7 990100 172666 MuV #100, d$TKS ;;ALLOW TTY KE Y2OGRD INTERRUPTS 
1538 556256 800137 903460 g$: IMP START ;;CONTROL-C RESTART 
hh} 
’ -- 
1220 906262 021627 200025 3S: CMP SP), 825 ;;1S_IT A_CONTROL-U” 
1553 O0s2e6 091005 SNE 108 : BREN CH IF NOT 
1560 06270 10440! goreag TYPE =, SCNTLU 33Y ECHO CONTROL=U tu, 
i561 S0se74 deer06 900006 208: Add he SP i YERORE pRevicue. TnFu? 
1568 896300 90073? BR 19$ ::LET’S TRY IT AGAIN 
1564 
1565 096302 321627 000015 108: CMP (SP), #15 :IS IT A <CR>? 
156 905395 5910ee SNE 165 i BRANCH IF_NO 
1567 606310 O0S766 900204 TST 4(5P) YES, IS IT THE FIRST CHOR? 
1558 996314 001403 ) BEQ ae ;/QRARICH IF YES 
1563 006316 916677 oc0002 172614 MOV 2:5P) ,aSuR SAVE ECNEW SW 
1570 906324 Obe7D6 SCO00E 11g ADD #6, SP ::CLEAR UP STACK 
| 1571 194401 991161 19$: TYPE. =, SORLE <CR> AND < 
| 2578 006334 1e37e7 901135 900001 cMPS = SINTAG, #1 RE ENABLE TTY Kao INTERRUPTS? 
1573 06342 001002 BNE 15$ :;BRANCH IF NOT 
is74 344 912777 900100 172572 MOV #100, 3$7KS ;3RE-ENABLE TTY KBO INTERRUPTS 
1575 O063S= 999002 1S$: RTI TURN 
1576 0063549 004737 ooso44 168: JSR PC STYPEC ECHO CHAR 
is?? 906360 Oelse7 oocoso CMP (SP), 860 ::CHAR < 0? 
| i578 905364 ode420 BLT 185 ;;BRANCH IF YES 
| 1579 021827 o900e7 CMP (SP), #67 ::CHAR > 7? 
| i580 008372 993015 BGT 19$ :;BRANCH IF YES 
| i3e@l 098374 94272— scoDeo BIC #60, (SP)+ :STRIP-OFF ASCII 
| 1882 306400 OoS766 000002 TST 2iSP) ris THIS THE FIRST CHAR 
' 3583 606404 901403 BEG 173 :BRANCH IF YES 
| 1584 996405 906316 ASL (SP) :3NO, SHIFT PRESENT 
| 1595 9806410 006316 ASL (SP) 3; CHAR OVER TO MAKE 
| 15BE OO€412 906316 ASL (SP) ROOM FOR NEW ON 
| $58? 856414 905266 099992 173 INC 2isP) S KEEP COUNT OF CHAR 
| 1585 Bdesé0 OSEEIE 177776 BIS Se SF), (SP) ;SET IN NEW C 
, 1585 806424 90067 ce 7§ ;;GET THE NEXT ONE 
| 253C SOS4ee 10440: oo11E0 19% TYPE $GLES riTYPE ?<CR)<LFD 
1591 506432 850720 : = os :;SIMULATE CONTROL-U 
15S OSASL LSE 
1533 
Less 
isss et tee me re rg me Ang cemny pene cert genta on i cman 
1596 STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TT 
1s 37 s*CRLL: 
15g :# ROCHR :;GET A CHARACTER FROM THE QUEUE 
1595 # RETURN HERE :;CHARACTER IS ON THE STACK 
1606 It ;;WITH PARITY ait STRIPPED OFF 
eSue H 
tE52 
1E53 OO6424 OLIEYE SROCHR: MOV (SP),-(SP) ; ;PUSH DOWN THE PC AND 
1504 CObY2E O1Ee66 o90004 cO0002 MOV 4 SP} ,2(SP) :TH 
1665 S5e444 O05Cee cof004 CLR 4(5P) :3GET READY FOR 8 SHARACTER 
1EDE S5645C 4 S05046 CLR -(5P) | PUT NEW PS ON ST 
1607 SOb452 O1274€ oc4E0 MOY Bo4S, -( SP) BUT NEW PS ON sok 
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aie 85 TTY INPUT ROUTINE 
1808 O06456 00002 | RIT ;;POP NEW PC AND PS 
16039 06460 2 b4$: 
1619 306460 O0S737 cOsSeE 1$: TST S$TKCNT ;;WAIT ON A CHARACTER 
1611 OO6464 O01775 BEQ 
lbi2 06466 905337 05566 DEC STKCNT ; ;DECREMENT THE COUNTER 
113 O06H72 117766 177974 900004 MOVE  a$TKQOUT,4<SP) a, 8 ONE CHARACTER 
1519 906500 005237 O0ss72 INC KQOUT ATE THE POINTER 
S15 O06504 Oea727 005572 05603 CMP = $TKQOUT, #STKGEND’; DID TT GO OFF OF THE END” 
igté 906512 901003 poe BNE NCH IF_N 
15? 506519 O12°S? oossty oossre MOV HSTKOSRT, STKGOUT'; RESET THE POINTER 
118 006532 000052 2s: RTI : RETURN 
193 A: Se | 15... Tae 
i629 gATHIS | ROUTINE WILL INPUT A STRING FROM THE TTY 
1d¢e1 ;* : 
i623 :# ROL! | s;INPUT_A STRING FROM THE TTY 
ig23 :* RETURN HERE :;ADDRESS OF FIRST CHARACTER WILL SE ON THE STACK 
$28 :* FITERMINATOR WILL BE A BYTE OF ALL O°S 
1636 O06524 910346 SROLIN: MOV —-R3, - (SP) :;SAVE_R3 
1627 06526 OOSOYE CLR =~ ( 5P) 3:CLEAR THE RUBOUT KEY 
128 O06530 012703 906760 1$: MOV sSTTYIN,R3 3GET ADDRESS 
1629 006534 922703 O067E7 2S: CMP sSTTYIN+7,R3 : BUFFER FULL? 
1630 OOE54O 10145 BLOS. 4S F YES 
| 3631 96542 id44io ROCHR i360 READ ONE CHARACTER FROM THE TTY 
1532 906544 112613 MOVS - ¢SP)+, (3) :3GET CHA 
1523 306546 122713 o00177 10$:  CME8  si77,{R3) 31S IT a RUBOUT 
1634 06552 991022 BNE 5 :3BR IF_NO 
1635 006554 OOS7I€ TST (SP) :15 THIS THE FIRST RUSOUT? 
| i636 906556 901007 2 BNE sb 2 
1627 O06560 112737 -COC134 cCOb7SS MOVS = #*\,, 98 :; TYPE A BACK SLASH 
| 1638 O06566 104401 OC&7Sé ti. 
| 1635 906572 012716 177777 MOV #-1, (SP) ::$ET THE RUBOUT KEY 
' 1640 006576 005303 $$: DEC Q3 : BACKUP BY ONE 
| 141 006600 020327 006760 CMP sR, BETTYIN i 3STACK EMPTY? 
| 1S42 906504 103434 cle 4§ ;BR IF YES 
| i843 006606 111337 gos7se MOVE  (R2),98 SET TO TYPEOUT THE DELETED CHAR 
' Té44 O06S12 104401 0057&6 TYPE cr G0 TYPE 
145 006516 900746 BR 2s 3360 READ ANOTHER CHAR. 
| 146 056620 905716 S$: TST (SP) ;;RUSOUT KEY SET? 
| 164? 906622 901406 BEQ 7§ F NC 
| e482 OO&624 112737 900134 oDe7Se Move =s#*\, 98 ti TYPE A BACK SLASH 
| 164 OO6632 104401 006756 TYPE =, 98 
| 1850 006636 9059: CLR iSP) :70LEAR THE RUBOUT KEY 
| JESi OOGE4O 122713 scoco2s 73: CMPB #25, (R3) :i1S CHARACTER A CTRL U? 
1652 90¢644 001003 BNE F NO 
1653 OO6646 104401 097900 TYPE —, SCNTLU tiTYPE A CONTROL “U" 
| {854 O06652 O00726 ee 3360 START OVER 
leS5 006654 122713 oo0022 o$: CMPB 22, (3) 1S CHARACTER A “TR”? 
. 656 OO€660 O51011 BNE s«38 : BRANCH IF NO 
' 657 O06662 105013 CLRB = (R3) : CLEAR THE CHARACTER 
' 65a OOe6EY 105401 o0116! TYPE  ,$CRLF sTYBE 8 CR" S “LF 
15S O06E70 10440: 06760 TYPE  $TTYIN YPE THE INPUT STRING 
16ES Q06674 O0c717 es g ae PICKUP, ANOTHER SHAC TES 
tefl SOEE7E 104401 o011E0 48: TYPE  , $QUES i: TYPE A 


ns 
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Yi! 27(655) 
BR 
38: MOVE = (R3), 98 
TYPE ag 
CMPBsIS, (RB) 
SNE 
CLRB = = 1 (R33) 
TYPE SLF 
TST tSP)+ 
MOV (SP)+,83 
MOV (SP), -<5 
MOV 4(SP} 2( 
MOV asTTYIN, 
RTI 
of: .BYTE 0 
-BYTE OQ 
$TTYIN: .BLKB 7 
PELL: .ASCIZ «207><377 
SCNTLC: .ASCIZ /#0/«18)< 
SCNTLU: .ASCIZ /tu<15>« 
SCNTLG: .ASCIZ /tG/«15>< 
$MSWR: .ASCIZ <15><12> 
SMNEW: .ASCIZ / NEW = 


.SBTTL RANDOM 


;#WITH A RANGE OF 0 TO & 


:¥CALL: 
od JSR 
;* RETURN 


PC, SRAND 


8-7, 


py Ot, RO 


SHINUM, R} 
#1057,R0 


RI 

847401,R1 
RO, $LONUM 
R1; SHINUM 
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;;CLEAR_THE SUFFER AND LOOF 
;;ECHO THE CHARACTER 


;; CHECK FOR Re TSN 
;;LOOP_IF NOT URN 

i OPE a LINE. (THE 15) 
; CLEAN RUBOUT KEY FROM THE STACK 


: {ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 


; ;RETURN 

+3 STORAGE FOR ASCII CHAR. TC TYFE 

: $RESERVE 7 BYTES FOR TTY INPUT 
DE F ELL 


8 
33 SNFROL a 
Ay ply “u" 


NUMBER GENERATOR ROUTINE 


5 EER RAR REEL ER ERR EEE REEL EA EEE ERE EERE AREER ER ER ERERE LAL EEA ATES LE 
: THIS ROUTINE IS A ppugLe oy eae PSEUDO RANDOM NUMBER GENERATO 


73 CALL THE ROUTINE 
; RETURN maT THE RANDOM 

t TNUMBER WILL BE IN 

;; SHINUM, SLONUM 


3 PUSH RO ON STACK 
;PUSH R1 ON STAC 
;PUSH Re ON STAC 
:;SET RO KITH LOW 
33967 R1 us HIGH 

HIFT RO LEFT 
ROTATE od INTD Ri AND 


t Cave R1 









ER i. neKe X 129 
DD at CONSTA 

: ;PROPOGATE CARRY 
sD HIGH CONS 


1-DORIC-A, 
¢.909 


2 
3 
5 
Q 
1 
2 
3 
4 
5 
: 


007 122 
007 


“IP ULE GITUe--C9.00 


SII III 


Wt Wwte-OWwM 


i747 007136 


007232 
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ANDOM NUMSER GENERATOR ROUTINE 


12602 MoV (SP)+,R2 
012601 MOV = (SP) 4) RI 
012600 MOV = (SP )+; RO 
609257 RTS PC 
176543 SHINUM: WORD 156549 
123486 $LONU 


»WORD 123456 
sEBTTL: INTEGER BIVIDE ROUTINE 





——;;POP STACK INTO Re 


4 4 STACK INTO Rl 
dis ae STACK INTO RO 


pears ROUTING WILE DIVIDE A aecBIT THO's COMPLEMENT INTEGER 


:ETHIS oe bene WILL A 
; *DIVIDEND oY A 16-BIT 


TWO’S 
16-BIT TWO’S gel INTEGER QUOTIENT 
PERFORMED SO THAT THE REMAINDER IS OF 7 


3*A 
;*DIVISION WILL BE 
bond SIGN AS THE DIVIDEND. 


he ” MOV LOW DIVIDEND 
1% MOV HIGH BIVIDEN ND, -(SP); 
:% MOV DIVISOR, -(SP) 
:% JSR ; 
s& RETURN 
:# "y"=9 IMPLIES NO ER 
:* “v=! IMPLIES ERROR 
:# *c"29 - DIVID 
;* “Chs] = ATTEM 
3:* 
.# 
:* STACK NO ERROR 
ec £é—<—28 £eseEesese 
& TOP REMAINDER 
:* +3 QUOTIENT 
$DIV: 
104490 TRAP 
meats 999917 BIC #17, (SP) 
010046 MoV RO, -(5P) 
O1C14E MOY R1,-(SP) 
019246 MOV "=(5P) 
010346 MOV R3.-(5P) 
ooso4e CLR -( op) 
912746 ooco21 MOV #17. ,-(SP? 
O16601 900524 MOV 24(SP),R1 
016600 o00022 MOY 22(5P)'RO 
100905 BPL I 
105366 090003 DECB 2s SP) 
605400 NEG RO 
005401 NEG RI 
609 SBC RO 
016602 oo0029 18: MOV 20(SP) Re 
002407 BLT 3g 
003011 BGT 33 
052766 000003 o00014 BIS #3 14(SP) 
012700 177777 MOY #LaR 
9oc424 BR 
005266 oocote 2s: INC tS 5) 


32-BIT TWO’S COMPLEMENT INTEGER 
COMPLEMENT INTEGER DIVIS08 GIVING 


A i6-BI1T — 


-(SP) ;;THE HIGH DIVIDEND MUST BE < lve 


AS LARGE AS THE DIVISOR 


aaa & REMAINDER ARE ON THE STACK 


CURRED 
E SVERELOW OCCURRED 
TEMPTED TO DIVIDE BY ZERO 


OVERFLOW DIVIDE BY ZERO 
ALL ZEROS ALL ONES 
ALL ZEROS ALL ONES 


as OLD PSW AND _PC ON STACK 
;STRIP_ AWAY yess aoe CODES 


; y S 

SAVE A PLACE FOR SIGNS 
;;QETUP THE ITERATION COUNTER 
;;PICKUP THE DIVIDEND 


;;CHECK THE SIGN 
; sKEEP TRACK OF TH GN 
3 AND NEGATE THE © 


E SI 
RIGINAL 


PIO + THE DIVISOR 
: DIVTSon OF 0. IS A NO-NO 
js BET REMAINDER TO ALL ONES 


:kEEP TRACK OF DIVISORS SIGN 





SE CO4s 






MO-11-0cRIC-A, 
DZRIC.909 


patted 


—0-- b-s poe 
NIN 
Fs Wit bo} 


007356 
997356 


RPOY-S’6 HEAD ALIGNMENT PROGRAM MACY11 27(655) 
INTEGER DIVIDE ROUTINE 


00cS52e 900014 





SES CC47 
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BR 4$ 








os NEG NEGATE oft ORIGINAL NUMBER 
: CLE 

BR 6$ START Al QUOTIENT 

OL R MSB’ 











L 

BN Sg tap fe NO 

TS Ri i OVERELOW? 

BPL ok 

BIS te, L4(SP) iicer bye? IN RETURN STATUS WORD 

CLR RG $3 SET REMAINDER TO ALL ZEROS 
73: MOV RO, RL :: COPY REMA INDER INTO QUOTIENT 
8$: TST (SP)+ ;;CLEAR COUNTER 

TST (SP) 3 ;REMAINOER SIGN PEORRECT ION NEEDED? . 

BGE 9$ F NO 

NES RO : NEGATE REMAINDER 

CLRB LC SP) ; CLEA SIGN 

DEC (SP) ;BUT DON’T FORGET QUOTIENT 
33 TST (SP)+ + ROTTEN. SIGN CORRECTION NEEDED? 

REO 10$ ::8R IF NO 

NEG Rl ;;NEGATE QUOTIEN 
108: MOY R1,20(SP) ::RETURN QUOTIENT AND 

MOV RO. 1S<SP) :;REMAINDER TO USER 

MOV (SP)+,R3 ::POP STACK INTO R3 

MOV (5P)+;R2 . Si TACK INTO Re 

MOV (SP)+°RI ::POP STACK INTO RI 

MOV (SP)+.R0 :;POP STACK INTO RO 

mov (SP)4°2°SP) ¢ SETUP TO RETURN CONDITION CODES 


RTI 
.SBTTL SAVE AND RESTORE RO-RS riitines 
3 U2 gppernpergrenens roonar eersranetngeer eters 


"_SAVREG 
UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


tSTOP===(+16) 
3# +2---(+18) 
3# +4---RS 
;# +6---R4 
;# +8---R3 
;#+10---R2 
;#+12---R1 
;#+14---R0 
SSAVREG: 
MO 


7 (SP) i 
Moy «RL, ~< SP) 3 3PUS 





3 


tw 
| 


0 b+ 0 & = 0 bo oo > 
pisisistets 
Pat test Hite 


1834 


007472 


007474 
007476 
007504 


RPO4Y’S/’& HEAD ALIGNMENT PROGRAM MACY11 27(655) 
SAVE AND RESTORE RO-RS ROUTINES 


oO 
Gity 
x 


SErPrrneae mi 
PPP PSOE 


Bone eee 


bs b= 0 = b= P= b> bs he 
Oo 


Q0ON000V0NR000 


State 


CL1646 
O16S66 
000002 


pens 


coonde 


007506 


oc0s04 cc00de 


MOV R2,-(SP) 
MOV R3,-(SP) 
MOV Ri. -(5P) 
MOV -(5P) 
MOV B3tspi (SP) 
MOV 22( SP); -(SP) 
MOV 20(5P); (SP) 
MOV 22(SP),-(SP) 
RTI 
: #RESTORE RO-RS 

RESREG 

eg 
MOV (SP i+, 22(SP) 
MOV (SP)+;22(SP) 
MOV (SP) +; 220(SP) 
MOV (SP) +) 20(5P) 
MOV (SP)+/RS 
MOV (SP)+°R4 
MOV (SP)+,R3 
MOV (SP)+,Re 
MOV (SP)+'RI 
HOV (SP)+°RO 


R 
.SBTTL TRAP DECODER 
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;;PUSH Re ON STACK 
ah + Hs, ON ate 
; ;PUSH 4 ON STAC 


P L 
: | SAVE PC OF CALL 


; RESTORE PC OF CALL 
;}RESTORE PS OF CALL 
E FLOW 


PC OF MAIN 
{RESTORE o OF MAIN FLOW 
Oe at STACK INTO RS 


pTNIe ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCT? 


:kTHIS ROUTINE ttt PICKUP 

;#AND U Ther oeerR 

: ¥OF THE 

:#G0 TO THAT ROUTINE. 

STRAP: MOV RO,-(SP) 
MOV 2(P),RO 
TST -(RO)’ 
MOVE (RO), RO 
ASL 0 
MOV $TRPAD(RO) ,RO 
RTS RO 


THE LOWER BY 
Q INDEX THROUGH THE TRAP TABLE FOR 
SIRED ROUTINE. THEN USING THE ADDRESS def NED IT WILL 


TE OF LL. Be "TRAP" INSTRUCTION 


; SAVE RO 
GET TRAP ADDRESS 
UP BY 2 
;;GET RIGHT BYTE OF TRAP 
;;POSITION 4  peeXING 


;; INDEX TO 
3;G0 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


(SP),-(SP) 


STRAP2: MOV 
MOV 4(SP},2(SP) 
RTI 


-SB8TTL TRAP TABLE 


;MOVE THE PC DOWN 
; MOVE THE PSW DOWN 


;;RESTORE THE PSW 


; ¥THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


: *BY THE “TRAP” INSTRUCTION. 
; ROUTINE 





— 
20.0 
BIRRES 


D2RIC -A ‘ 
.009 


007536 
007544 
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TRAP TABLE 


005342 
006 162 
006072 


000909 
000009 


go99c0 900009 


srePAD: stVPE area TYP TRA + 4 1 ty T ROUTINE 
a tS xatt=TyPpc 3 mesa BNe) PE nit MBER (WITH LEADING ZEROS) 


TYPON ::CALL=TYPON Taeee 3 10409 re rac nureES (AS PER ter aFALE 
STvPbS {iCACLeTYPDS © TRAPSSCJONMOS) TYPE DECIMAL NUMBER (WITH § 


$GTSWR ;;CALL=GTSWR TRAP+6( 104406) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR TRAP+7( 104407) TEST FOR CHANGE IN SOFT- 
$SROCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROU HE 
SROLIN Lge TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
SSAVREG ;;CALL=SAVREG TRAP+ 1B 1o4412) SAVE RO-RS ROUTINE 

SRESREG ;;CALL=RESREG TRAP+13( 104413) RESTORE RO-RS ROUTINE 


.SBTTL SINGLE/DUAL PORT RHI1/RPO4/S/6 DRIVER (REV 1.0) 


;COPYRIGHT (C) 1976 
:DIGITAL EQUIPMENT CORP. 


AYNARD, MA 01754 
+ AUTHOR?§). JIM LACEY/CHUCK HESS 


fp RERRARAAAA ERE E RE REEL LALA LAER ALAA LARA RARER ALA LALELELELALATAERAE RE 


;STORAGE FOR RPOS1, RPER1, RPER2, AND RPERS ON AN ERROR “2” 
:RP ERRS RPDS1 
; RPERRS+2 = RPERI 
:RPERRS+4 = RPERO 
:RPERRS+6 = RPER3 


RPERRS: .WORD 0,0,0,0 


; TABLE OF pays ACTIVE INDICATORS (ORVACT=8 SYTES) 
;DRVACT=0 IF DRIVE IS IOLE 
iBRVACT IF DRIVE 3 ACTIVE WITH A COMMAND . 
;ORVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 

DRVACT: .BYTE 0 ;DRIVE 0 

-BYTE Q ;DRIVE 1 
BYTE 0 ;ORIVE 2 
BYTE 0Q ;DRIVE 3 
-BYTE 0 ;ORIVE 4 
BYTE 9 ;DRIVE S 
-BYTE 0 ;DRIVE & 
-BYTE 0 ;DRIVE 7 

; TABLE OF DRIVE Bas INDICATORS (DRVSTA=§ BYTES) 
;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
;ORVSTADO IF DRIVE IS ONLINE 
;ORVSTA<O IF DRIVE IS U 












MD-11-D2RJC-A, RPOY’S”“6 HEAD ALIGNMENT PROGRAM MACY11 27(655) 
PORT RH11/RPO4/S’6 DRIVER (REV 1.0) 


DZRIC. 009 


% 


OO00O0u0wN 
uWG) 
00D SJ 


007615 





SINGLE “DUAL 


ORVSTA: BYTE 4 


t DRYTYP=- 
DRVTYP: BYTE 


; TABLE OF DUAL PORT IN 
;DPINT=0 IF 
;DPINT<O IF IN 


DPINT: ete 


; TABLE OF PENDING DUAL PORT REQUESTS 
PRQS=0 THAT A DUAL PORT REQ 
:DPRQS<O IF THAT A DUAL PORT REQ 


DPRQS: vTE 


QO000000 


O0000000 


140-4 
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Bearers 
w 


<<< =< 
MMmmmmmrre 
NOU Gorr-O 


VTYP=8 BYTES) 
E IS i ENT (DRVSTA=O0, ALSO) 


DDDDAADD 
<r ccc U1 


SOVVVVT0N0 
MMMMmMmimim 
NOU CWO 


;DRIVE 0 


‘DRIVE ? 


; TRANSFER “iy FLAG (TRNSWT=1 WORD) 
S_A_ONE 


WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 


Opa OF THE 1/0 OPERATION. 


ATORS 
NOT ACTIVE ON THE DRIVE 
IN PROGRESS 


NOT PENDING FOR THAT DRIVE 
PENDING FOR THAT DRIVE 


Mo 





SEG OO0S0 



















Ooo 
-_ 


SEES 


Oo oO 
e— (2.000 IOrU ££ Lfue- 


rurutut 
fore 


rm 
ah 


SSRN 


IOOOO 
Ww 
ww 


f Breryruren mu 
DO VRE 


DZRIC.009 


007616 000600 


90762 900000 


00722 


007623 


SINGLE “DUAL 


oce 


coo 


TRNSWT: 
; SEARCH WT Is Yo" ONE ook 


SRCHWT : 
;RPOY’S/6 ot Mca ACTIVE FLAG (ACTORV=1 BYTE} 
;ACTORV=0 IF DRIVER IS INACTIVE 

ACTDRY: 
; SOF TWARE TINGR ROUTINE ACTIVE FLAG (ACTS 
;ACTSTR=0 IF SOFTWARE TIMER ROUT 
:ACTSTR>O IF SOFTWARE TIMER ROUT 


ACTSTR: .BYTE 


LLOFLG: 


. WORD 


MO-11-D2RIC-A, RPOW/S/6 HEAD ALIGNMENT PROGRAM MACY11 27(655) 
PORT RH11/RPO4/S/’6 DRIVER (REV 1.0) 


0 


0 
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WORD 
% EU THAT ox CONTAIN A KEY FOR EACH OF 
RFORMING A SEARCH COMM 


Pe rt AT THE TOP OF THEIR REQUEST QUEUE. 
‘EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR ORIVE OC. 


. WORD 


SACTDRV>O IF DRIVER IS ACTIVE 


.BYTE 


ULDFL Ce» 
sULDELG? 


.BYTE 
-BYTE 


0 


0 


UNE OAD CO 
AD COMMAN IN PROGRESS 
AD COMM N WAIT QUELE 
iORIVE 
i DRIVE 3 
:DRIVE 3 
DRIVE & 

‘DRIVE é 
DRIVE 7 


;LOOK AHEAD COUNT (LACNT=8 BYTES) 


LACNT: 


; SAVE Reo TEre AG (SA 


;LACNT WILL INDICATE THE 


Q 


: 
: 


ae 
> (DPS+!4), 


e 
AF ee AN 


‘ G =] 


ss 


RH 
RROR. 


5 a 


gaewaeies 
wren 
NOU £CUITuR-O 


er er er eres eres ee 


BEBES 
oa 
a 


TR=1 BYTE) 
NE IS INACTIVE 
NE IS ACTIVE 


R OF LOOK AHERCS PERFORMED 


SEG 00S1 








AND FOR THE 170 

















mn 


GISTERS WHEN THE 
REGISTERS, AS PER 


~- 


te > 
Ren 


Re BS 
CTU CI OGIO Lad 


PIV ALLARIATIALIEDLALIAVIAUAL AU) 
C90 1 900090 DOO ILI0 41 


w 


-_ “~s 7 Ss 
- 3 22% »** . 
delcsouns 
a 
SxJ3 oes 
&x 5 
==25 
3X5 
oe oo 
S5u2 
==" 
=x_- 
ex“... 
gets SCENE 
Z5eA 
wes 
Sve. 
S==5 
=z 
evse 
ElS4H DOTSES 
Ese iste 
- 1 e 
2s — ‘ : 
scs>  S5765e 
els OU7660 
2c53 oO7é6e 
eso = Ooréss 
e051 Strkes 
g2e5 
e083 
2554 
e565 
tO seas, 
Est. ww! — 
gcse 
2ce$ 
S=5- 
-—~—+ 
erg 
78 
esc2 pEr522 
esi3 eerie 
ie te To 
2e7? 4 =6OO7E7 
go°8 OUTb77 
207s 807700 
e0so Corral 
2981 
34163 
i] 
8 
SS oOo77fz2 


C57704 


aaa ae 
wewuwewww 


STREET 
CAREER 


4 
“}- 
3 
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SEEK FI “de eset 
A Tse ae Beene 1s? 


Serer 
wait Feanarer WILL D0 I 


s TIMEOUT Trae 
THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


mr 


#eeee#ee#ete 

0-0 — 0 b= 9-0 = 0 

DDD DoD ww 

O44 40-00-0010 00-4 
min 

“On £ lItue-C) 


NV000000 
mervierirry 


;DATA RTGS DATA 


es: 
sPatne THE boRREsPc! 


CING SIV TD EACH ORIVES 


eroe Cc) 


D-42 
<< es 


< 


—4-4--4- 4-4-4 
AMM MMe 


IMUIS Culue-(5 


i ROM: + a 0 RH11 “MASSBUS CONTROL SUS FA 
T FATAL <MCPEMXs1] WORD) 


:STORAGE FOR RPAOR (THE FIRST AOORESS (775700) CF ues mii my 


sRPVEC (THE VECTOR ADDRESS (254), HNC RPVEJ+e 


athe NUMBER OF LOOK AHEADS ALLOWED 





me ee ee 





a t@- 


wk se 


“— 
_, 
7 
“oe 


mountnoc 


9 MIC OO 


+0 +0 +0 +0-+ 0-0 0-00-98 20 +b 0-2 bd 28 <p 08-0 68-96 +8 +69 


[oe oae oun OO SECU IOVICVIOULOVICUIOCVIOVICUIOVIIUIGUIIULAPIDIIIDL AUD AD eee el ed a eee] ae | 


SOP OF: Gore 9.000 SCP OT Cote 0.000 OP 0 Gone 0.000 > IOP 0 Gate =03.008- 10° U.S Gate *Ounp- 


+0 50-0 + 0-0-8 +b +0 #6 20-+b 98 +8 #8 


TIVIAVIAVIALIATIADIALIADIAUIALAULAUALLALIALIDULADIPULALIAUE A tATAt APP Att allaivlillarlittieeiielatiinseliv is sv tlavst iit ivi it lavl ati itl itl) eo 
e+e +8 +6 +6 
£i4 





. REDY 5.8 


SINGLE 5 
200004 
Am) FFF 


wwswwe 


aaeas 
ewww 


mem emse 


fue- Naru 


MOoonlm:+- 
C9C 9070 90- 
Ob: -to-3 
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RPO4S & DRIVER (REV 1.0) 


MXLACT: .WOR 
MAXIMUM DELTA oe RY IS 8 SECTORS <MXDLTA=1 WO ORD) 
ORIN, WORD #64. 

MINIMUM DELTA Flay iS 2 SECTORS (MNDLTA=1 WORD) 
MOL TA: WORD 


2*64, 
:MAXIMUM SEARCH FOR 1/9 WINDOW IS S SECTORS (MXWNDW=1 WORD 
MXWNOW: .WORD 5§ 
sDEFINITIONS OF THE RHIL-RPO4’S,S ADDRESS INDEXES 





RPCS1=0 CONTROL AND STATUS REGISTER #1 
RPUC=2 sHORD COUNT REGISTER (NOT A ORI 
RPQA=4 NIBUS ADDRESS REGISTER (NOT A 
RPDASS i BPSTRED SECTOR/TRACK ADDRESS RE 
RP2S2=10 ; CONTR STATUS REGISTER #2 
RedSi=12 SORIVE STATUS REGISTER (DRIVE RE: 
RPERI=14 SERROR REGISTER #1 (ORIVE REG. Ce) p 
Revs=16 tATTEN RY PSEUDO REGISTER (DRIVE RES. C4: 
RPLA=20 :LOOK GISTER (DRIVE RES. 973 
RPD8=52 :OATA_BUFFER REGISTER (NOT A DRIVE REG.) 
ROMA=O4 :MAINTAINABILITY REGISTER (ORIVE REG. 02) 
RPDT=o6 :ORIVE TYPE REGISTER (DRIVE REG. 96) 
RPSN=30 :SERIAL NUMBER REGISTER DRIVE REG. 10) 
RPOF =32 SOFFSET REGISTER (ORIVE REG. 11) 
RPCAS34 ;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12 
RPCCS3E :CURRENT CYLINDER ADDRESS REGISTER (SRIVE SEG. 23 
RPERZ=HQ TERROR REGISTER #2 (ORIVE REG. 14) 
_ -RPERS=42 ZERROR REGISTER #3 (ORIVE REG. 15) 
2 REC S44 SECC POSITION REGISTER (ORIVE REG. 6) 
RPECS=G ZECC PATTERN REGISTER (DRIVE REG. i?) 


sRHLI/RPOW/S “6 ORIVER INITIAL LEAT T 08 CODE 
:THIS ROUTINE WILL DET at ie RPO4.S’§ ORIVES ARE 
:a/ATLSBLE FOR agate Ne NO te ne ont eat INDICATOR 


HE PROP EAC 
:NOTE: THIS ROUTINE CALLS BRVINT 


: JSR PC ,RPINIT 
: RETURBN 


INOTE: THE °P’ OR 'L’ CLOCK MUST BE STARTED 


RPINIT: SAVREG ;SAVE RO - RS Sete ti SM 
MOV aePS,-(SP) :SAVE THE PRESENT PROCESSOR STATUS 
MOV = w5892.> a0PS = CHANGE THE PRIORITY TO § 
JSR PC cLROUE tet LEAR ALL REQUEST QUEUES 
MOV BRPERRS A} FIRST ADORESS TO BE CLEARED 
Moy BSEEKFG.R2 :LAST ADORESS TO BE CLEARED 





"oe; 
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DoRie.593 SINGLE DUAL SORT RH11 RPOY'S.& DRIVER (REV 1.0) , 
2143 OCTTS2 20502: 18. cLR (R14 : CLEAR 
Ss 20 x 
533 5 os 333] SMP RIL R2 SARE WE DONE? 
2150 a ie ay SLOSS si8" ;BRANCH IF _NO 
gis) pecrbe Glerge og7er MOV a0 TUW, Re :LAST ADDRESS 
2iS2 OOrrg4 Olere] irre. 28: MOV a1, (RL }+ ; :NITIALIZE 
2:53 S0r7rd c2d10e CMP ORL Re : DONE” 
S158 Oorrre icirry SLOSS LOOP IF N - 
iss O07774 O0S037 o07ss6 cLR = sORVSTA {SET ALL HSIVeS To OFFLINE 
2:32 g10000 pobhe; ULES ccR ss DRVSTae2 
2:57 919004 90503? 007562 ECR = DRVSTA+4 
2:58 310019 005937 907564 CLR = DRVSTASE 
€:59 919019 313703 007706 MOV - RPVEC R23 SETUP THE RHLL/RPO4/S/ VECTOR 
S160 919520 Sleves 012566 MOV  -BISR, [R35 + 
816) G100e4 O13713 Orr Noy REVEL +2, (R3) 
ets 515030 813704 o6rrty Moy «READER ;FIRST ADDRESS OF RHL1/RPOY 
eis 510034 912764 O00040 oocc12 MOV aSIT ae" seCs2: 4)" -MASSBUS INIT 
cigs 91904 O01 cLR Ri stant WITH DRIVE 0 
| 2165 520544 90503? 010134 38: 5k ROL ORVINT INIT THE DRIVE 
2is& O150s0 090491 3 +t ‘Ova _NOT_SET OR PARITY ERROR 
ig? 10052 oo040e 3 3 NORMAL RETUR: 
2168 510054 195061 o075s6 ug: UR8 = DRVSTA‘RI) SET BRIVE STATUS TO OFFLINE 
£185 15066 905201 os: tic RI :50_T0 NEXT DRIVE 
zivo O100e2 O4270] 177770 BIC atC7,PL :MASK OUT UNUSED BITS 
| E17; 318066 001366 BNE «38 :BR IF MORE DRIVES TC Go 
| site giseld Sterol oggac’ MOV #7 RL : START WITH DRIVE 7 
ei7s 310674 o05037 ifr? CLR Qa CLEAR THE PROCESSOR STATUS 
Ei74 315100 105761 cOTS7E Le TS7B 49: DPINT< RD :WATTING FOR “DRTVE TO SuITCH PORTS 7 
i7s 215104 901408 i :BR N 
2175 315106 OO4737 015216 "SR sé SET.TE :SET INTERRUES 
| 217? 18112 105761 SO7S75 7s Té7S «= DPENT. RI) :BRIVE SWITCHED PORTS ° 
| 78 Cietig 3biar3 ; aXe 7S :BR IF NOT 
| 2:75 916129 006303 ot Dec COR : G0 + THE NEXT ORIVE 
| 2186 915122 150386 PtC#GSS :CHECK NEXT DRIVE 
| E18l Sf5t2§ S12637 icreze MOV (SP) +, 3aPS TRESTORE THE PROCESSOR STATUS 
| E:Be S5T5t3o Tdssi2 RESREG RESTORE RO - R 
) gees Cic138 Odced? RTS PC :BYE-3YE 
&.5"% 
| E1g5 :DRIVE INZTILIZATION ROUTINE 
| BTEE THES ROUTINE DETERMINES Tf 8 ORIVE EXIST AND 76 27 25 
| BLE AN ReCH/S/6., 6 IT 15. 8 “REGG-IN PRESET” IS TSSUED “AND FNT22 
| Eigse 1S SET TOA mire THEN MOL, DPR, DRY, AND WV ARE CHECKED ie 
| BLES SINSURE THEY ARE ALL © AND DEPENDING ON THEIS STATE, 
=35¢ ; :ORVSTA IS SET TO THE PROPER CONDITION. 
613i 7 CALL 
2192 MOY —-8DRVNUM, RI ;ORIVE NUMBER TO RI 
2182 ; py ORPADR ;UNIBUS ADDRESS OF RHi1 FFOY 5 & (RECS!) 
2135 TER RO ORVINT :CALLED BY 9 JSR 
eiS5 RETURNI ZERROR OCCURRED (PARITY 
=13 RETURNE NORMAL RET 
6:37 
2152 
iS 012124 DiDE4e CRVINT: MOY «RS = SP ;SAVE_PS 
zi2* SIElc TfE5e! oovsse CLR = DRUSTACRL) SSTART GRIVE STATUS AS OFF CINE 
Zio) Si5isz iCE0E: lo7see CLAS URVTYP(RI :CLEAR THE SRIVE TIPE INDICATOR 
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0-0 <b <9 20 
Conc) 
rE toe 
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Brasco 
Disslé 
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554006 
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COSC} 
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020921 


024021 


097672 
014636 


177777 


£7977 


SNMENT PROGRAM MACY 
PORT RHI1 RPOY S & DRIVER (REV 1.0) 


ALT) 


hi 274655) 27-APR-76 


ULDFL GER] 1) 
R} ae RY 
POSLIR 


sili 
agit. RECSEURS) 


1g 
Pc, SET. IE 
oS 
DR’ 


RO, RO. RP 


+,R5 
al PRUE TP R1) 
820020,85 

2s 

#24020, RS 


2, DRVTYE< RI) 
820021 ,.R5 


2$ 
#24021 ,RS 


84 DRVTYE(RL 
s20022,R 


es 
BesOze RS 


@-1 DRYTYP(RE: 


&$ 
gi21,-(SP) 
RO. WRT. RP 


Se SP) 


2.- 
HRT. ee 
RO.RO.RP 


am, RS 


-8 
afar (RL), RPAS‘AS) ; 
RO,RO.RE 


(SP i+ 
3 


RS 
erC<8ITl2!e82798 


AiR}) 
WeiT11,RPCSCRM)' 


"A “REA 


8-1, DRVSTACRI? : 
&$ : 


ck HOt, OP 


i6:34 PAGE 44 


; CLEAR ms ee FLAG 


iSELE CTA 
IVE CLEpR BS rete (§ SEIZE © 


:00 ADR 
: NONEXISTENT 
BRANCH . 
T MIE" WITHOUT A “TRE” 
EAVE THIS ROUTINE 
LORIVE STATUS To OFFLINE 
"SEE IF DRIVE AVAILABLE. 
TF ORIVE. NOT AVATLAGLE 
:REAG THE DRIVE TYPE RES. 


sERROR RETURN ADDRESS 


RPOS ° 


:BR IF_YES 
mies RPOS ” 


NOT LATOR 


SINE 'F9 T RPCE ” 
;DUAL gest RPOS ? 
SET INDTZATOR T3 
D-IN PRESET” 


3SET FMT22=1 


;READ RFCS1 


3 ANC ty +5 BOM IN RS 


ATA=O 


HT 
NELEAR ATTENTION 827 
SFIND OUT WHY ATA! 


i tall 
UNSAFE INDICATOR 


K_ MOL nt DRY, 








NOICATOR 
i tt PORT RPOY 
318 IT p oe PORT §PO4? 
SET apts INDICATOR 
NGLE PORT 


*CTHER® 





~ RPCY.S.6 HERD Th py PROGRAM MACYL1 27(655) 27-APR-76 16:34 PAGE 45 
SINGLE DUAL PORT RH1L RPO4YS-& DRIVER (REV 1.0) 





yee; 200001 O0TSE ae ORVSTAIRI) SET OFLVE sist 6b pivlicteee 
‘ : ‘ BUS 907" oo H f 8 f 4 Lit iE 
| Ase 8t és: TST #1408 Me eh atus Te RETURN 
$259 3 444 B2041¢ aR Q EXIT 
3260 51de4s 00639! wat, ASL RL HENGE INDEX TQ ADQRESS WORDS 
3351 O19450 O1e7&1 003720 oCTESO MOV #2000, .TIYERRL)" OTST e. SEC TIMER 
3353 510456 90620] asp 
S263 O1ONED Llev61 ifrr7? cors7s MCVB =. = ,DPINT(R1) SE! PORT INITIALIZE INIDISATCOR 
zos4 O19465 O126C5 es: MOV (SP$+,R5 RESTORE RS 
Bacs Sours 869558 RT RO SEXTT 
=286 
Baa sREQUEST PRE-PRCCESSOR-HANDLES SUSSYSTEM REQUEST 
€e5 H 
2263 2 CALL 
e270 $ 
e271 : SR RO, DeRODY :CALL THE RPO4/S/6 DRIVER 
| eere : PNTADR : ADDRESS OF POINTER OF OR ives PARAMETER BLOCK 
| Bera : RETURN] ;RETUR N MERE IF QUEUE IS Fu 
1 374 : RETURNE :RETURN HERE IF REG QUEST is iy QUEUE OR THERE 
| e275 !I§ AN ERROR CONDITION 
Sev? O:C47S OLSTHS 7777S RPOY: MOV WPS, -(SP) :SAVE THE CALLING STATUS 
| 5578 O10476 O13737 OOP710 7777E MOV SPyetae 2ePS =—s:DONT ALL Y RPOW/S’& INTERRUPTS 
| ges73 316504 12757 86008: Go7s22 MCVS —s @L LARC TRY : SET ACTIVE BRT VER® FLAG 
| eepd 5195:2 14412 SAVREG : SAVE 
| 2281 919514 d11003 MOV RO}. R2 ‘PICKUP THE DRIVE PARAMETER BLOCK POINTER 
| esse O1051¢ O5563 coocie eLR 18(Re) :CLEAR THE STATUS/ERROR INDICATOR 
| $683 9205¢e 111201 MOY (R2) RI PICKUP THE DRIVE NUMBER 
eee4 819554 013704 07704 MOV RPADR, RY :UNIBUS ADDRESS OF RPCS! 
Sees 910530 105761 OO7556 TST DRVSTACRI) CHECK DRIVES STATUS 
| 3285 919534 903014 BST i$ :BRANCH IF ONLINE 
| 2287 010595 105761 oo7e24 TSTS SepLScRED UNLOAD Conran IN QUELE? 
2288 O10542 901036 BNE 3$ : BRAN 1CH 
2299 910544 195761 oo7S7s 7ST8 = DPINTi RL? : TRYI NG yo INvT THE DRIVE 
| 2230 819550 oO1o4e BNE 5 :B 
| 229i 910552 904937 o19134 JSR RO, ORVINT :60 int: THE DRIVE 
| 2292 1955 900434 oR | :ERROR RETUR 
| 2253 10560 105761 oo7ss¢ TSTB © DRVSTACR1) 1S Bare STATUS ONLINE? 
' 23545 O10564 Oc3445 BLE T 
| 2295 810566 105761 o07&06 i: TSTB © DPROS(R1) : OUTSTANDING PORT REQUEST FOR THE DRIVE ” 
| 2296 619572 001031 BNE BR IF YES 
22S7 910574 910164 900010 MOV RL, RPCS2.R4} BS er THE DRIVE 
2292 910600 994037 O15760 JSR RO; ORVOUE ;PUT THIS REQUEST IN QUEL 
| 2298 010604 Sd0460 E BR 95 - QUEUE TS FUL 
2300 S10608 122762 oo0102 coon cMPB = #103,2(R2) 5 18 THIS REQ. FOR AN UNLOAD? 
230: 910614 001003 BNE BR IF N 
ese OiDble 112761 177777 cO7e24 MOVB = a1 UDFLG(RL) :SET THE “UNLOAD IN GUELE™ FLAS 
_ 2302 010624 105761 So7s4s 2t: TSTB. so DRVACT(RID 18 THIS ORIVE ACTIVE? 
_ £304 010630 901043 BNE RIF YE 
| 2305 O10632 004737 o1o764 JSR PC, OPT TALL THE OPTIMIZER 
| 2396 C10636 oCo44O ' BR 8 
2207 O1D64 912762 120000 cooole 3s: MOY BBITIS!B1712, 16: Re) “SET THE “UNLOAD IN QUEUE" ERROR FLAS 
e358 O:cs4e 000434 BR 8S 
2253 Si3650 064737 012074 4E: JSR PC,S17 5D HANDLE THE PARITY ERROR 


ieee eceocanae 
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ururufute 
QOS Ieee 


II-III 


SHS 
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err erurururururururur 
tuluru 
> ie | 
EG 
£m d 
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OPTINIZER-CALLED FOR A PARTICULAR DRIVE 


OOVBdOVOOVOOOVOOOVOVVV000000 


27 
(RE 
g 


(ess) 27-APR-76 i6:34 PAGE 46 
$ - 
R90, DRVQUE :PUT REQUEST IN QUEUE 
QUEUE IS F 
#BITO6, (RY) :15 ie, ee ALREADY ” 
9g ‘BR IF 
PC, SET. IE : SET INTERAC 
: RETURN, RESUEST IN QUEUE 
DRVSTACRI) i SEE IF’ pPRIve OFFLINE G8 UNSAFE 
09111581 TH, 1b¢ ds -SET OFFLINE ERROR NOICRTOR 
DRVT :SEE tF OFFLINE OR NONEXISTEN 


og L 
riser. 118(RE) jREPORT DRIVE NONEXISTENT 
#BITIS'BIT12, rec) jORIVE IS UNSAFE 


RESTORE R 
(RO)+ : SETUP FoR NORMAL RETURN 
0 ‘FINISH UP, THEN EXIT 
; RESTORE RO - RS 
(RO)+ :CORRECT THE RETURN ADDRESS 
ACTDRY CLEAR “ACTIVE DRIVER” FLAG 
(SP)+,aaPs “RETURN "PS" TO USER LEVEL 
RC ‘RETURN TO CALLER 


#ORVNUM RL DRIVE NUMSER TO RL 
PC, OPT ;SETUP A COMMAND 
SAVE RO - RS 
aaPS,-(SP) jSAVE PROC. STATUS 
TABIT.R1) , SRCHi! CLEAR “SEARCH WAIT" _KEY 
PC, GETREG :GET_“DPA* POINTER OF REGU EST 
Re’ :15 THERE € REQUEST IN QUEVE 
;NO--BRANCH TO EXIT — 


7$ 
aBIT le, RPOS1 (RS) :IS MOL_ST To SET 
BBITS.RPOSICRY) ” iS Vet ? 


TIS 
RO, ORVINT SEE IF DRIVE he, 7 et ’ 
;PARITY OR "DVA* NOT SET 
ORVSTACRI} 1S ORIVE ONLINE? 
3 ; YES--BRANCH 





-NO--REMOVE REQUEST FROM QUEUE 


aBtTIEVETTH, 18c Re) ioe] OFELINE, STATLSERROR INDICATOR 
DRYS :IS DRIV AFE ? 

ay -BR ° Me rT iis NOT 

eBIT1S!S! 12, 18(R2) | iSe! UNSAFE STATUS“ERROR INDICATOR 
B11 2(SB LORD COMMAND aR THE STACK 


OAD THE R 
Resist ER INCR EMENT 
ERROR RETURN ACCRESS 


a ee en ee ee er te eR Ee tS I 


NO LA-DERIC“A, 
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01 
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01 
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91 
01 
ol 
cl 
Ol 
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SINGLE “DUAL 


032714 
001427 


wo 
and 
WwW) 


OdNOVOMDoOVWVWOO0O00N 
= Cle & 0-= {F(T o-- 0-0 - - (9 
ror 
“J 
| om ] 
£ 


rc £2 ror 
tw 
< 
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004060 
000156 
911469 

7670 
007645 
012430 


011244 
011382 


1999890 
atdéted 


023420 


012074 
JC108 


016056 
007516 


ooodae 


01S0le 


CALL 
MOV 
MOV 
JSR 


ao es ee ee 8 68 oe oe oe oe oe 


4 
-- 
Le) 
w 
wa) 


PORT RH11“RPO4’S’6 DRIVER (REV 1.0) 


#BITL1, (RY) :DRIVE 8 AVAILABLE ? 

#150, 2(R2) 18 THE” REQUEST FOR 1/0? 
Pe, cr4 : CALL THE COMMAND INITIATOR 
3 ‘BRANCH TO EXIT 

OTUW :DATA TRANSFER UNDERWAY? 

4 :YES=-GO START A SEARCH 
SEEKFG :D0 IMPLIED SEEKS? 

$ : YES---BRAN H 

RO,LA !NO--DO LOOK AHEAD 

8 RETURN HERE ON A PARITY ERROF 
4§ :GO START A H 
pe cll ‘START A DATA TRANSFER 
&C .cI3 ;START A SEARCH 
g 0 THE EXIT 

#-1, DPROS(RI) SET PORT REQUEST INDICATOR 
R1,R3 SET UP TO ADDRESS WORDS 


NVERT TO WORD : NDEX 
poe TIMER: rah “START 10 SEC TIMER 


Pe Cc] : PROCESS, THE PARITY ERROR 
attoe. (RY) :SEE IF *IE’ ALREADY SET 

S$ :BR IF SET : 

PC SET. IE :SET "IE" WITHOUT A “TRE” 
(SP)+, aePs :RESTORE PROC. STATUS 


sRESTORE RO - &S 
PC 


COMMAND INITIATOR 


sORVNUM,R1 i QRIVE NUMBER 
sOPS, Re “ADDRESS OF DP 
PC,ct? C17 €I1,C13, OR CI4 
s WHERE: 
:CII=DATA TRANSFER 
sCles SEARCH REQUESTED BY DATA XFER 
:ETS=NOT CATA TRANSFER 
PC, POPQUE sREMOVE REQUEST FROM “DRIVES WAIT” QUeU 
Re. TRNSWT :PUT REQ. IN TRANSFER WATT QUELE 


RPADR, RY 
Ri, APES. R4) RIVE 
a4.R2 DESIRED WORE COUNT 

ae (RY)+ {TOAD ORG COUNT 

(Ra)+, (RY + ;LOAD BUFFER RODRESS 

(R3)4,-(SP) :LOAD SECTOR AND TRACK 

RO. WRT. RP L THE LOAD ALTE ROUTINE 
SNES OF REGISTER TO LOAD 
‘ERROR RETURN ADDRESS 
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Coie ay 


FORO Lue 


SINGLE UAL 


12346 
00403' 


012974 
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018Cle 


909015 
007720 


occoeb 
009011 
01S0i2 


000131 
Cisole 
007672 
007794 


00:31 


009019 
015012 


000195 


oC00i2 
0150le 


000115 
014636 


000001 


ee ee 8 ee ee. - ee ee 


(R34, -(SP) 
RO, WRT. RP 


RPA 

Rl BRE Ry) 
12tR2), =6eP) 
RO, WRT:R 


10(R2),R3 
i DW, R3 


11 Re), 1S 
RC,WR 


Bist a 4s 
O,WRT. 


ATABIT(R1) ,SRCHWT 


#131,! 
ay ae am 


- RO, WR 


2$ 

#105,R3 

3$ 
12(Re) ,-( SP) 
RC, WRT. RP 


Clé 
8135.R3 
RO,RO.RP 


1(R2), (SP) 


27-APR-76 16:34 PAGE 48 





;BYTE WHEN LOADING THE 





;LOAD CYLINDER ADORESS 


;LOAD “COMMAND+GO", “G178A:&", GND “PSEL™ 


;SET “DATA TRANSFER UNDERWAY” 


sRPCS1 reer 
;SELECT DRIVE 
;DESIRED CYLINDER ADDRESS 


;PICKUP SECTOR ADCRESS 
;BACKUP SY MAX. SEARCH FOR 1/0 WINDOW 


;COMBINE THE AQIS TED SECTOR WITH 
i THE DESIRED T 
LOAD DESIRED TRACK & SECTO 


;START A SEARCH 


;SET “SEARCH WAIT” KEY 


:RPCS1 ADDRESS 

SELECT DRIVE 

PICKUP THE REQUESTED COMMANC 
Bt IT A_SEARCH COMMAND? 


ANCH IF NO 
LOAD DESIRED TRACK & SECTOR 


390 LOAC CYLINDER 


‘ap Rolie R SEEK COMMAND 
;LORD DESIRED CYLINDER 


iis IT a “OFFSET” COMMAND? 


‘MERGE Ms OFFSET VALUE INTO RPOF 
;BUT DON’T CHANGE THE UPPER 








SINGLE /DUAL 


b6— b— &— 6 - b-bd 
~- 


SISNET ae 


~u 
ia) 


RESIS 
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ui 


= b- 2 b= © hs = > 2 Pe ps fe hs pe + +) += b— b— b— b= b= b— b— P— 6 = b= bb bb bb 0 be ph pe 
o ao 
Oo 


RR Tt 


fututyrotyty 
aitiatetatatetel 


. 
3 
4) 
Q 
0 
0 
0 
i] 
Q 
0 
0 
Ns] 
] 
0 
0 
Q 
0 
0 
0 
a] 
0 
0 
Q 
a} 
Q 
0 
ps] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
9 
0 
0 
0 
0 
9 
0 
9 
0 
0 
0 
0 
9 
0 
C 


<= &-+ 6 = 6 = b= b- = bb 0 = = 8 br + 0 ee O—= b= — b= b= &-< b= b= b= b- > = b= = = b= bP Pb Pp 


rururuf 


oO 
w 


015012 


000107 
000117 
000103 


C14636 


011744 
000502 
00014S 


01S0!e 


O1605& 
000200 
007644 


015209 


» RPOW’S-’6 HEAD ALIGNMENT PROGRAM MACY!1 27/655) 
PORT RH11/RPO4/S’6 DRIVER (REV 1.0) 


ro7s46 
007624 


000901 


011744 


011744 


000016 


JSR RO, WRT. RP 


RPOF 
Cl7 
BR Clb 
4g; CMPS =—- #107, R3 
BEQ cIé 
CMPB 3 ssa#117,R3 
BEQ CI6 
CMPB «#103, R3 
BNE S$ 
MOVB #1, DRVACT(R1) 
CLR DRYSTALRI) 
MOVB 81, ULDFLGiR1) 
MOV R3,-(SP) 
ISR RO, WAT. RP 
RPCS)] 
CI? 
RTS pc 
S$: CMPB —s-«-&143,, R3 
BNE &$ 
ISR RO.RD.RP 
RPOF 
C17 
MOVB  1(R2),1°SP) 
JSR RO, WRT. RP 
RPOF 
C1? 
BR 125 
tS CMP elit, R3 
BNE 
7§ MOV tthe). R3 
MOVB  10(R2),9$ 
MOVE  1I1(Re)'R 
33: JSR RO, RD.RP 
ag: RPCS1 
CI? 
MOV (SP)+, (R3)+ 
CMP 93,5 
BEG 12$ 
BOD #2, 95 
10$:  CMPB  #14S,R3 
BEQ 13g 
ilS: MOV R3,-(SP) 
ISR RO; WRT. RP 
RPCSi 
CI? 
les: JSR PC, POPQUE 
BIS w81 707, 16(R2) 
TST SAVEFG 
BPL 13$ 
ISR PC, SVRH11 
133: RTS PC 


a ees. oe ee ee ee oe ee 
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;REGISTER ‘RPOF) 


+90 START THE COMMAND 

329 IT A a ataallall COMMAND ” 
BRANCH IF Y 

31S IT A en TO CENTER? 
;BRANCH IF Y 

1S IT AN “UNLOAD” COMMAND? 


;SET THE DRIVE te eg 


+ ie IN PROGRESS” FLAG 
START THE “UNLOAD” COMMAND 


;RETURN TO USER 
TER! IT A_“SET FORMAT” COMMAND? 


ANCH IF NO 
READ THE OFFSET REGISTER 


;COMBINE “FMT2e” ,“ECI", AND “HCI” 


:LOAD “FMT22", “ECI", 


aR, am Ae hd REGISTER” COMMAND? 
POINTS TO_1ST eoone oe - WHERE 
;0 PUT_THE REGISTER( 

NTT. THE INDEX FOR THE FIRST REG. 
INDEX OF LAST REG. TO MOVE 
:READ RPO4 E76 REGISTER 
; INDEX OF REG. TO READ 


;GET_ THE CONTENTS OF RH11/RFO4-S“6 
s AGT REG BF BEEN READ? 

: INCREASE THE INDEX BY 2 
;LOOP=-HORE TO 

13 it A FY ECT DRIVE" COMMAND? 


;LOAD THE COMMAND 


; REMOVE REQ. FROM QUEUE 
;SET THE “OONE” BIT 


: SAVE ig H11/RPO4“S“& REGISTERS? 


; BRAN H IFN 
;YES--GO SAVE THE REGISTERS 
:RETURN TO USER 





ANO/OR "NEI", 






dz a 

25 1 01 

$258 BiShse Orset c017s0 

2529 12046 006201 eee 

3354 ee basces 

3531 Ol 610346 

2532 Ole0be 004037 o1S012 

eb33 012066 900000 

2535 if 88 00076: 

2536 Ole074 O32764 .0100b0 

5833 G1S10e O01408 

2540 Olel10 O1l2762 104000 

2541 Olell6 904737 015200 

e542 Olel2e 012746 900111 

2543 O12126 904037 O15012 

2544 Oleise 00 

2545 012134 012174 

2546 012136 004737 015740 

2547 Olel4e 105061 007624 
4B Oielig 105061 007546 
48 Olel 12? 007679 

2550 912156 001005 

255! 912160 005037 o07616 

2552 012184 012737 177777 

2553 612172 000207 

2554 612174 104412 

2555 012176 032764 o10000 

2556 012204 001002 

2557 012206 1 

2558 012219 o05003 

2559 Ol2ele 105761 0074S 

2560 Oleci6 001443 

2551 Oleee0 013702 oO07616 

2562 Olece4 020137 007670 

2563 Olees0 001402 

2564 O1ee3e 004737 016034 

2565 Olees6 005702 

ane wee 
568 51 S5c5 antat 

ebb Oleebe 12762 100002 

257] Bt SSEp eat 102000 

2572 912270 737 015200 

2573 O12274 012763 177777 

2574 Oles02 105061 607546 

2575 Ole306 020137 007670 

2576 Olesi2 O010 

2577 Ole314 012737 177777 

2578 Ole3e2 005037 07616 

2579 612326 105061 007654 


fg’ “SINGLE -DUAY POR 


007650 
007546 


000010 


000016 


007670 


cocc10 


oc0010 
000016 
000016 
007650 


007670 


CIs: 


CIé: 


CI?: 
1$: 


CI7B: 


or 


1$: 


es: 


33: 
4$: 


S$: 


RPOY’S/6 HEAD ALIGNMENT PROGRAM MACY]! 27(655S) 
RH11/RPO4/’S/6 DRIVER (REV 1.0) 


4 : NUE 
| WOITIS!B1T10, 16183) ;SET “NON-CLEARABLE PARITY” ERROR INDICATOR 





SES 0061 
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RI 

#1000. , TIMER (RI) :SET A ONE SECOND TIMER 

#1, DRVACT(RI} :SET THE DRIVE ACTIVE 

pC RETURN TO THE USE 

R3,-(SP) ‘LOAD THE COMMAND 

RO, WRT. RP 

CIs 

4B1712,RPCS2(RY) DRIVE NON-EXISTENT ? 

Re ‘ANYTHING IN QUEUE ? 

CI78 : N 

#BITIS!BITL11, 16(Re) ;SET “PARITY” ERROR INDICATOR 

PC, SVRH11 G0 SAVE THE RHI1/RPO4/S’S REGISTERS 

gili,-(SP) :D0 A "DRIVE CLEAR” 

RO, WAT. RP 

PC, EMPTY sEMPTY THE QUEUE 

ULDFLG(RI) :CLEAR THE UNLOAD IN QUEUE FLAG 

DRYACT(RI) :DRIVE IS IDLE 

R1, DTUW IF THIS DRIVE HAD AN 1/0 REQUEST 
!IN PROGRESS CLEAR ALL OF THE FLAGS 

TRNSWT 

g-1, DTU 
;SAVE RO_- RS 

#BIT12,RPCS2(R4)° :IS 'NED’ SET ? 

1$ :BR IF YES 

x 

DRVACT(RI) sDRIVE ACTIVE? 
:BRANCH IF NO 

TRNSWT , R2 GET THE “TRANSFER WAIT” QUEUE 

R1, OTUW ‘OID THIS DRIVE HAVE AN I/O IN PROGRESS? 
*BRANCH IF YES 

PC, GETREO :GET THE DPB POINTER 

R2 QUEUE ENTRY FOR DRIVE ” 


4$ 3 NOT 
Sgt 12, RPCSECRY) \ Dn ET ? 
#SITIS!BITOL, 16(Re) rine *DRIVE NON-EXISTENT’ INDICATOR 


;SAVE RH11/RPO4/S/6 REGISTERS 
‘STOP THE TIME 

ET “DRIVE ACTIVE” TO IDLE 

:1S THIS DRIVE SETUP FOR A TRANSFER 


8-1, OTUW :RESET THE INDICATOR 
TRNSWT ‘CLEAR THE TRANSFER QUEUE 
ULDFLG(RL) :CLEAR UNLOAD FLAG 


#-1\ TIMER(R3) 
DPVACT (RI) 
R! ,DTUW 














MD-11-D2RIC-A, 
pzRIC.90 


9 
2580 012332 
2581 O12340 
goee Dee 
2583 012344 
2584 012250 
3585 012354 
2586 012356 
5g? leak) 
2588 012370 
2599 912374 
2590 Olev2 
2591 012404 
3592 O1e4i0 
e593 Gie414 
2594 O1e420 
2595 O1e4o4 
259% Ole4e6 
2597 

2598 

2599 

2600 

2601 

2602 

e603 

2604 

2605 

2606 

2507 

2608 012430 
2609 012434 
2610 O1e440 
2611 O12444 
e612 O1e446 
2613 O1e4s0 
2614 

2615 o124s4 
e616 12456 
2617 OleYee 
2618 O1e470 
2619 Ole472 
2620 012476 
2621 012500 
e622 012502 
e623 012504 
2624 Olesl2 
2625 012516 
2626 Oles20 
2627 Olesee 
2628 O1e504 
2629 Olese6 
2630 Olesae 
2631 012526 
2632 12540 
2633 O1es44 
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020207 


013704 


002003 


010000 


002002 
177770 


007566 
015316 


007704 
009010 
014636 


000012 
007624 


097634 
000010 


000346 
014636 


0Ce600 
097714 
007716 


900019 


007670 


000010 


007712 


177776 


6$: 


7$: 


#B1T12,RPCS2(R4) 
&$ 
RI 
#2,R3 
#t¢7,R1 
is 
#-1 DTUM 


QUE 
ee RPCS2(R4)’ 


C, EMPTY 
OROSTOCRS 1) 
DRVTYP(RI) 
PC, SET. IE 


PC 


;LOOK AHEAD ROUTINE 


: CALL 


, 
. 
: 
. 
s 
. 
s 
. 
s 
. 
s 


LA: 


1$: 


MOV 
MOV 
R 


#ORVNUM,R1 
#0PB, Re 


.MXLACT’ 


R 
#340, D¥PS 
RO, RO. RP 


(SP)+,R3 


#<22.%#64.>,R3 
MXDLTA,R3 


3$ 
MNOLTA,R3 
3$ 
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-*NED’ SET ? 
:BR IF YES 
‘MOVE TO THE NEXT ORIVE 


;BRANCH IF MORE DRIVES 

;NO_DATA TR cael NDERWAY 

CLEAR THE ’ TRANSF ER WAIT’ QUEUE 
:CLEAR ALL oF THE REQUEST QUEJES 
;00 ieee S INIT. 

CLEAR THE ORIVE’S QUEUE 


SET DRIVE TO OFFLINE 
AR THE ih TYPE JNOICATOR 


3 DRIVE 2 

;POINT TO DPB 

360 CHECK THE WINDOW 
OR ie 

SSTART A SEARCH 

:START A DATA TRANSFER 


;GET_RPCS1’S ADDRESS 
; SELECT 
READ CURRENT CYLINDER 


sERROR RETURN ADDRESS 

:1S CURRENT CYLINDER=DESIRED 

C YLINDER? 

EXIT IF NO 

: INCREMENT THE LOOK AHEAD COUNT 

“EXCEED MAX? 

sBRANCH IF YES 

;GET DESIRED SECTOR RODRESS AND 
T. BY S4--ALIGN WITH 

‘LOOK AHEAD REGISTER 


;PRIORITY LEVEL "7" 
READ LOOK AHEAD REGISTER 


;CALCULATE THE DELTA 


; MAKE 1 OF Te POSITIVE 
HE DELTA TO SEE 


;CHECK T 
:IF 


YES, ZERO 
THE LOOK AHEAD COUNT 
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MO-11-D2RIC-A, 27-APR-76 16:34 PAGE Se 


DZRIC. 009 





SEQ 0063 









G34 1254 105061 007634 25: CLR8 —- LACNT(R1) SAND TAKE THE 1/0 EXIT 

5 Olesse 00572 TST  — (RO)+ 

gb35 012854 005/20 38: TST {RO)+ ADJUST THE RETURN ADDRESS 

Se3o iseep Goura? o1z074 us: ISR Be, c17 !PROCESS THE ERROR 

e633 012564 00200 S$: RTS RO : RETURN 

ee4 ; INTERRUPT SERVICE ROUTINE 

SE43 012586 112737 CO000i OO7622 ISR: MOVE #1, ACTORV ;SET “ACTIVE DRIVER” FLAG 

e644 012574 104412 SAVREG ;SAVE RO ~ RS 

2645 012576 313704 007704 Hoy RPADR, RY SADDRESS OF RHSCS1 

264 Oles02 013701 007670 MOV WR :GET “DATA TRANSFER UNDERWAY" INDICATOR 
2647 012608 002403 BY A$ :BRANCH IF NO DATA TRANSFER UNDERWAY 
2648 012610 004737 012632 JSR PC, TD - :CALL TRANSFER DONE 

2649 O1e614 990402 BR 25 tEXIT 

2650 Ole616 004737 012772 1S: JSR _—- PC, SC CALL SPECIAL CONDITIONS 

2651 Oles22 104413 2$: . - RESREG TRESTORE RO - 

2652 Olese4y 105037 o07b22 CLRB. - ACTORV CLEAR “ACTIVE DRIVER" FLAG 

2653 Ole RTI : RETURN 








seep ; TRANSFER DONE ROUTINE 
e$57 Bisbae 10S961 097545 TD: CLRB at 8 ;SET DRIVE ACTIVE INDICATOR TO IDLE 
2658 012635 Ole737 177777 007670 © MOV #-1,OTUW :NO DATA TRANSFERS UNDERWAY 
2659 012644 006301 ASL Rl 
2660 O12646 012761 177777 007650 MOV #-1,TIMER(R1) ;CANCEL TIMEOUT 
Fad 012654 1 ASR 1 
O12656 013702 007616 MOV TRNSWT , Re ;GET “DPB”. ADDRESS FROM THE 
2663 pi cbeE 005037 007616 CLR TRNSWT’ ; TRAN FER WAIT QUEUE--CLEAR QUEUE 
2664 Qle666 O5e76e O000e00 000016 BIS #BITO7, 16(Re) .. ; 
2665 012674 010164 000010 MOV R1,RPCS2(R4) ‘SELECT THE DRIVE 
2666 biE70e 004037 014636 JSR RO, RD. RP ; TRANSFER ERROR(TRE=1)? 
0127 
Ole 006126 
2670 Qle7le 100413 BMI 3$ ;8R IF_YES 
2671 QO1e714 005737 007644 TST SAVEFG ;SAVE THE RH11/RPO4/S/6 REGISTERS? 
2672 Ole7e0 100002 BPL 1$ ;BRA NCH IF N 
e673 Qle7ee 004737 015200 JSR PC, SVRH11 ; YES- “ve THE REGISTERS 
' 2674 Gle72e6 904737 010764 1$: JSR PC, OPT CALL OPTIMIZER 
2675 Ole73e 000417 BR SC CH ECK oer pri ves 
2676 Ol1e734 O1e714 000113 es: MOV #113, (RY) LEDS ig ee DRIVE 
e677 Ole74O 000414 BR C OR A 2 DRIVES 
e678 Ole74e OSe762 100100 OOO01E 3%: BIS WBIT1S!BITO6, iste SET DATA ERROR FLAG 
Ade pie ree ae 15740 JSR PC, EMPTYQ EMPTY T THE “ORTVE’S WAIT" QUEUE 
680 012754 004737 015200 JSR PC’ SVRH! 1 ;QAVE THE RH11/RPO4/S/6 REGISTERS 
e681 Ole760 012714 040111 MOV 40111, (RY) ; ISSUE ° “DRIV 
e682 pie7eh 012714 000113 MOV #113, (RY) ;ISSUE A RELEASE TO THE DRIVE 


e770 000400 BR Sc ;CHECK FOR OTHER DRIVES 
268s ;SPECIAL CONDITION ROUTINE 


2687 Cle772 116403 OO00016 SC: MOVB RPAS(RY),R3 ;READ “RPAS” 





ter 
Pe) 
—T 
- 
Sr 
Da 
+ 
ao 
> 


oO 


Srrnenene 
cRao es 


SoS 


SSSGRARL BO BBE 
Bie 


Wtateateateat atid 


3 


> &— & — b= b= — 6— 6 —- b= Pb 2 = b= 9 0 
2 


Bezeee 


BeBe 
HOCMIOOOOONO OOOOOOIGO0O ONOVOOOVWOOVOOWOOOOOIIOOVOVOOVOVOVOO O00 000 


o-- 0-0-0 — 0 = b- b- o-- = & - © 6 8 Ob +0 bb 6 bb 0 9 8 0 0 0 0 0 0 = 1 
ater te 
O—— 6 — 0 oe 
tow t= Pe re 
ia¥) <£ 


GIG) 
dose 
Ss 


Se wetiowemu fe 
BSdey RoR B 


S] 


- 
eS 


Ba 


BEE aan 


015316 


009901 


007576 


23750 
37608 


013750 
007556 


007624 
pies 

013700 
007556 
0400C9 


013610 
007540 


007546 
013700 
007576 
007S5& 
dz0009 


113 
1$0ie 
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38: 
S$: 


&$: 


RO, RO.RP 


(SP)+ 
1$ 


Pc, SET. IE 


$¢3 
(SP)+ 


PC 
OPINT(R1) 
1$ 


$C13 
QS(R1> 


$C13 
RVSTAC(RL) 
ULDFLG(R1) 


» GETRES 
PC; SVRHI1 
PC,SC12 


DRVSTA(R1) 
IT14, RPERRS 

BPERRS+2 RS 

DRVACT(RI) 


PC,SC12 
DPINT(RL) 


< 
VSTA(RL) 
S8I713, RPERRS+S 


ada Be 
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;BRANCH IF ANY *ATA’ BITS Bet 
READ CONTROL AND STATUS REGISTER 


31S “IE"=1? 
YES, NO DRIVES TO CHECK 


REPORT AN INTERRUPT 
el edb Bald 
PROCESS. ALL DRIVES THAT HAVE 


BRANCH 
: MOVE TO THE NEXT ORIVE 


;BRANCH IF MORE TO CHECK? 
; CLEAN id THE STACK 


:RE Pt USER 
IN a ING THE ORIVE ” 


sO i NOT 
ger 5P8 POINTER 
VE THE RH11/RPO4’S/E REGISTERS 
s3hN5 DO a bRive atthe CORUINT: 
DID DRIVE COME 
NO---SRANCH 
WAS THERE ERROR? 


OR ERROR RECOVERY ” 


joe 


SPYSsense 
mae 
am 

a 


a 
Brin 


m 
° 


rae 


an 


~3~9~9~3°s 
mt mt tt wt et tS 
itaseariatstctet 


uy 


a me es ee es ee ee 


atte 
INONOOOAOYUOOON OI YBOIYVOIVIAIYIIIAIUNNVIVIVIVOVOVVOYOYVOOAIUOMOOWOoONN ws 


RRM 


“IN 


ES ES ES A Dk EN A rh A A AG Dh A at J 
WWLICIWUILIGIWILILIT) 
ee ee 


br 3 
OS PUL OWOR Lue LN 


<0" 0-2 b= b= 2 0-* 0-2 b= b= b= b= B= 0 b= 2 B# BP -2 + P= Bo b= = bo bo bo 0 he Ob OO Oh = 9 bb oh Oo a he 
£ 


- 
CDC 
:£ 
*Crrary 
2or 


LN) 
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SNES Dum S38 § nS"e'& pated FEY 1-0 
tae “$; AY cP) ,RS ieee tup ines EF? Be THE ERRCE Ch 
0 $: MOV i$), ( ) 0 L 
ee: ERROR 2 REPS Br t Ep ptrent ion 
300731 - & Sc4 : 60 Sek ok MORE ATA’S 
204005 ESROR 5. REPORT hese paige PLUG CRaNGE 
a anmpen 5062 AGL age ey ae 
xagie: Beg BP TIMERCR) GRIP ee aE ve aooness 
COW'3? 916054 JSR BE SETREO :GET THE OPS POINTER FROM THE GUEUE 
510164 805519 MON RI'RPSSS.R4) SELECT DRIVE 

4037 014636 SR RO; RO.RP :READ THE RPOW'S STATUS SEG. 

O12 RNS! 

13569 sca 

1160 MOV (SP) ,RS AND PUT IT IN RS 
006.6 RO (SF) S pteR o ERROR”? 
1gp8>. SMT | ie 7 
195761 COTS4S 7ST DRVACT (RL) k Barve" 

3137 857 cil er iE Active. WITH ORDER ¥ : , 

=/ee 100210 9000: zis 31 ris¢erroresrrds, 16cR ; INFORM USER OF ERROR SECIVER COMPLETION 

f 
4037 O1463 18: ISR RO, RD. RE ;READ ERROR REGISTER #! 
51 RPER} 
013560 cg 
012605 MOV (SP)+ RS SAND SAVE IT IN eS ie 
004737 o1s200 ISR ps SvRHLL :SAVE RHIL- RPO / 5.6 b REGIS TERS 
S12 SO0rr} Moy ail -( 5° : ISSUE A DRIVE ¢ 
po4037- O1s012 JSR 0 WaT. Re 
foc809 RPCS1 
513560 A $¢8 
C0615 scta: ROL RS WAS “UNSAFE” CONDITION =17 
100408 Mz 13 ‘BRANCH IF YES 
702 TST Re ANYTHING IN QUEUE * 

501447 SEO scr : BR 
MSe7vse 109240 coctis Sts SBITISIBITOTISITOS, 16: R2) :INFORM USER OF ESRO8 
tales) 98 sc? 
604037 014636 18; sR RO.RD.RP ;READ ORIVE STATUS SEG. 21 
s0c01e2 REDS) 
013569 a- 2 
511605 may (SP) RS : SAVE. RPOSL IN RS 
956126 ROL (5p 34 "ERR =1? 
190011 QPL 25 :BR IF NO-=UNSAEE CLEARED 
112761 177777 SOTSS& MOY #-1 DRVSTACRI) :DRIVE IS U 
054737 - O18200 JSR PC :SAVE RHL1/ upeoue S$ REGISTERS 
os ree 110905 sce: gis eetfisveiniz, 1SiR2) - INFORM USER SF UNSAFE ERROR 
032705 10000 23: IT #1712, RS somobe 1? 
doro1s SNE REE YES ; 
112761 177777 Co7S46 MOVB «B= 1 ,DRVACT(RI) ee VE ERROR RECOVER 
lieve) G0000: f07556 MOVE sl, BRYSTACRI) : ONLINE 
936201 ASL Ri 
01276: O7e46D OO7ESS Mov B30000., TIMER(RL) :START 30 SECOND TIMER 
6t620! ASR Rl 


— me eee a a et ee eee 


ie 


22 


rote 2d 


3 
ini 
o 


MMIMNOOVDONVNIOOVOOOOOOVVIOONININAYNYN OQONVIVOAVIOOVVVVAIVIOOVVOYIVOVOVOOVWOVDOO 
<0 = 0-2 0 b-2 b= 0 b= & = 0 = B= b= B= bBo 0 8-2 FB b-bd 2 Bs 0 8 b= B+ Bo bo 8-0 b= 2 b+ Bo 2 bo Fb Fo bh hm 
if 


t 
. 
5 
( 
c 


Bose LR 


Qo 


couwwwMuwiwMMwM 
Oo 


Eka ahah 4h ahah ghlod 4 
minthintntarat: 
Mais sais 


> <9 -< 9-2 0-2 & + p~< 9-29 = po 8 


LCD ~ T° 41 .£: ue (> 


at 


pL Pifyr seers steeste 
spat ad oY 
wr £O FS: ™ 


’ 
fue 


ee 


MUuluUTrUrUurururururofrorure 


ou 


ore 


seine 
£O 


23 


“3 
wtttttsth 4 


rae ae 


~“I~INININD 
rue 


GIWIGIOILIGIGIG) 


PPPS 
wait) 


ify 


PERI ACLAUIALI AU ALL 
co coco co coco 


aaenn 
090036 


~ 
ee 


chee PROGR 
’ RH11-RPO4'S 
O42 
0 O00C16 38: 
46 Str: 
000016 18: 
23: 
scs: 
1§: 
e$: 
scl 
1$: 
009036 
OCC3ié& 28: 
SCle: 
CO7S36 
7540 
Sc7S4e 
507544 
i$: 
scl 
cO7EES 


EV 


sc4 
laa 16(Re) 


TiR]) 
VEMPTYO 
LG(R1) 


sey 
ALR) 


$113 -(SP) 
RO, WRT.RP 


sc4 
PRVACT (RE 
PC, GETREO 
PC CI? 
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( 


aan Ui ess OR QUEUE? 


tem Ue FEN 
wostitt Rae we NTION SIT 
; THE RIVE UNSAFE 7 


ER 
Y_EXIT ADDRESS 
oF eS DRIVES 


~BR 
“0P8 POINTER 

PROC ESS THE PARITY ERROR 
; CONTINUE 


Br, C178 : PROCESS THE UNCORRECTASLE PARITY EFRTR 
:CHECK MORE DRIVES 

OLOFLGCR2) tS UNLOAD IN PROGRESS” 

1 : BRANCH IF NO 

ULOFLG<R1) LEAR UNLOAD FLAG 

DRVACT (A!) ‘eee DRIVE IDLE 

ATABIT(RI) SRCHWt imi iat SEARCH OPERSTICN FoR 


QUE 
eBtTO7, 16:82) 3SeT ” 
JEFS 


BC SvRH1! 
RTRBIT (RL) ,RPAS( hess 


:8R RiNcH TF 
; REMOVE REQUEST FROM GUEUE 


;SAVE THE REG ISTERS" 
ee IF N 


:START A REQUEST 
HE oh FOR MORE DRIVES 
) SELECT DRIVE 
ERRS’ 


RPER: iis RPERRS +6 


RQ. DRY 
1$ 

pC 
(SP + 

scs 

Rl] 


ns 


me a ee eee 


;INIT. THE STATE OF THE ORIVE 
: Eke ERROR EXTT 


> RETL 
:POP. pp OFF_OF THE STACK 
PROCESS THE PARITY ERRCR 


;SETUP_TO ACORESS WORDS 
: STOP THE TIMER 


CLERR i ATTENTION 317 
garye AVA 


IF aval: reeLe 








; INFORM USER OF ERROS 


sSAVE THE FOUR SEGISTERS 
WILL TELL US SOMETHING 








MD=tr- RECS SS MEAD ALIGUMENT PROGRAM MACY 27.E5S) 27-RPR-7& 16:34 PAGE SE 
anti. 50 SINGLE DUAL SORT RHI] RPOG S. 6 ORIVER (REV 1.0) 
2350 QI4002 97301 suco a0 QR 
$51 Di4004 Qlerel 23420 cO7eSO MOV  S10000. ,TIMER(R1) ;START 10 SEC TIMER AGAIN 
#838 ois 12 i ask RI 
$304 Siasie s7e1 OO7S7 i$ ae SPINT.RI) ENITIALIZING THE DRIVE ? 
ze a : i 7 ma 2, Dain ae THE iat NIT_INDICATOR 
, bf ~ ‘ ra ! * { ) ATS 
Hee cis scien Boras 35k OL DRVINT amit i Barve 
2959 914534 SS024C NOP eam "eee Y ERROR RETURN 
38539 51403¢ 10576! oOTSes T5178 49 ORVSTACRI) iORIYE 
Fy EES Eee an Bel Geir oe 
Sirs Righae Bo19ie 385 53 i ‘ NOT 
3963 C140S0 SO4T3? 018034 J5R =—- PC GETRED - GET DPB ADDRESS 
esc4 514054 O6272 140500 s000:6 S15 wBETISNSIT14,16:R2) _s INFORM USER THAT OFFLINE 
soe flume price, pisos tee BETEMPTG aye ee Shee curve 
ay Sigpes Sbagag SUS 36 spate. i 
1 3568 O14o74 JOS9E: soTeoe 23: “LR  - DPROS< RI? :GLEAR THE PORT REQUEST. INCIZATS 
2269 Sivio0 O54737 OT37Es 352 «BC OFT :STPRT_THE PENOING SEGLES? 
ge SISIDN coois7 EtSo4e 38: IMP SG SCESS OTHER DRIVES 
287e ;REO4.S & TIMER ROUTINE 
| EBs ie °)' BTIME,-(5P) sELASPED TIME IN MILLISECONDS ON THE STACK 
Seo : J5R PC RP TNR ;CALL RPO4’S’& TIME ROUTINE 
r=4 
| eec2 G181i9 gosra7 So7see RETMR: TST  ACTORV :CHECK “ACTORY $ ACTSTE™ 
| 2a7a SisifsS 887030 BNE 4S s EE HON ZERO EXIT 
| pers Bl4lig lie?s? doco: cores MOVS «#1 ,ACTSTR *acTSTR® 
| BR Hug jee ae Bien c 
| 3ess 574758 SaeRRs xR OR 
2983 014133 906763 oco7eso 13: 7ST =. TINER( RD) :18 THE TIMER RUNNING? 
| BOBS O415— Oo2407 BT 8g :BRANCH IF N 
| HESS S14ts0 IS€s€2 ooocne oo7EE0 Sig Sse) ,timerrg: PESUNT THE INTERVAL 
| BEBE Bisive 903003 nr 3 :9R IF_NO SOFTWARE TIMEOU 
2557 14150 904737 o14202 Jsx «PC, STO SCALL SOFTWARE TIMECLT Seorrne 
2552 014154 Sd0u0s BR 3$ ;80 TO THE EX 
2983 S14i5_ 395201 23 NC ORL IMOVE TO NEXT DRIVE 
2936 Gi4ib0 906723 tst (R334 
2991 Oisie2 522791 oocorc CMP sw RE OUT OF DRIVES? 
2892 O14 90326] BcT 1S :SRANCH IF NO 
ee93 914370 104413 38 RESREG SRESTORE RO - RS 
2854 514172 155037 oo7se2 CLRE-ACTSTR :ZERO ACTIVE SOETHARE TIMEOUT ROUTINE FLAG 
ess C14i7E Oizeie 4S: MOV (SP) 4, (SP) OJUST THE STACK 
e6% O14200 000207 RiS PC RETURN 
cece SOFTWARE TIMEOUT ROUTINE 
2566 INOTE: THIS ROUTINE MUST SE ENTERED AT PRIORITY & 
est: OR GREATER 
2323 CA STO 
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009 SINGLE OUR. PORT RH11 8PO4 S & ORI ven (REY 1.0) 





$ MUYV @ORVNUM,RI sORIVE NUMBERS 
> : JSR Pf STO » CALL 
: RETURN 
959 914202 910146 STS: = MOV RL, -(SP) :$8VE Rl 
Ere GME BLE gocos Ry Blgars cess ge ects" 
ae é ak a tal wwe 
53H Basis Bieiby 0019 “Ov RL RPCS2cRYD fie EE DRIVE , 
29:2 014216 OO4037 014636 JSR RO. RD. RP :READ “DRIVE Status Res" 
25:3 214222 900012 RPDS! 
2314 14224 014524 STS 
2915 Ol4226 105726 TSTB (SP )4 31S “DRY"=1? 
2316 014230 190477 SMI SToe :8R IF YES 
esi? Gi4e3e 5761 907s? STOl: STS § DPINTCRL? i TRYING 1 INTIALIZE THE DRIVE ? 
23!8 914236 06107 BNE Ste :BR IF Y : 
2519 014249 105761 oD7ECS TST FFROS:R1) TSTANDING PORT REQUEST FOR THE DSIVE ° 
2920 914244 O01071 SNE ST0e ‘BR IF Y 
2921 914246 013702 od7616 MOV TRNSWT, R2 :PICKUP TRANSFER WAIT QUEUE ; 
| 3932 O142Se 020137 507670 MP Ri, DTU ; TRANSFER UNDERWAY ON THIS DRIVE 
2523 014256 001402 BE i$ H I 
2524 914260 904737 016034 ; JSR REQ bP : 
2925 O14264 OSe7k2 191900 cocols 1s: 8! ab{Tigi6%703, 16i set THE ERROR FLAGS __ 
2526 O14 72 904737 035200 ISR 11 sg SAV vik ae /RPOY.'S “6 Redists gS 
| eso 314876 «D1e7é4 865045 oooc10 MOV et 65, RECSZ(RY) -"TNIT" THE MASS BUS 
2328 014304 105061 O07546 cuRS = ORVACTIRI) sORIVE IS IDLE 
2$29 O143ic 105061 od7&24 EcRE ULOFLS(RI) :CLEAR THE UNLOAD FLAG 
2339 14314 905001 CLR :START WITH DRIVE 9 
| #931 O143!6 905002 : CLR 4 
| 2932 6143290 9049037 o10134 23: ISR RO, ORVINT INIT. THIS DRIVE 
| $6933 914334 90047 BR sTas IBARITY ERROR RETURN 
| 2934 014325 105761 oc7S4s 7ST BRVACTIRI) DRIVE IOLE SEFORE THE INIT. ° 
| 3935 014332 001414 PEO 4S YES--SRANCH 
| $3936 914334 013702 oo7615 MOV TRNSWT. R2 iGE7 TRANSFER WAIT QUELE 
| 2937 O14340 923701 067670 fo 5TuW, RL 5S THERE 1/0 ON THIS ORzvE" 
| 2939S 914344 091402 SEQ 3 ANCH 
| 2939S 014346 004737 018034 JSR SETREG ‘ET THE DPQ POINTER »Paot QuELE 
| p4S 914352 OS2762 100400 coca1e 38: gis aptTisiet Tce, 15(R2) ; INFORM USER OF INI*. 
' 394i 914369 105961 007546 CURB = ORVACTIRI) :SET DRIVE ACTIVE TO te 
| 8843 014364 105061 007624 43: CLRB  =-—: ULDFLG(R?) :NO UN 
| 2943 914370 912763 177777 oO7ESO MOV a=, TIMER( RS) : STOP 
| 2944 014376 905723 TST (R334 : YPCATE THe NDEX 
| 8645 614409 995201 INC R} NCREMENT THE DRIVE NUMBER 
46 014402 922701 ococoIc CMP #8. ,R1 LAST ORE BEEN CHECKED? 
2947 014406 903344 BGT =-L69 
2948 514410 612737 177777 OCTETS MOY 8-1, 0TUW NO pater TRANSFERS UNQERHAY 
2645 14416 005037 907616 CLR TRNSWUT :CLEAR TRANSFER WAIT QUEUE 
2950 214422 004737 O1Stée SR PC, CLROU CL FAR ALL REGUEST QUELES 
295i 4514426 OO0Sf0 BR XIT 
SSE O14430 1640S og0ole S702: MOVE - RPAS(RY) RS ‘READ ATTENTION REG 
S953 914434 13619 GE7E72 PITS ATABIT(RI).RS 18 RTTENTION FOR THIS DRIVE uP ° 
5355 Giguge AGIGI? 8N S793 : YES--BRA 
ests Sis442 105761 007576 TST OPINT(RL? : TRYING ae INTIALIZE THE DRIVE ? 
SSeq SlaaHe | «f0103) BNE S706 ‘BR IF YES - DRIVE NOT SM IN 
2357? El4uss ISE7EL co7eo TSTtg  CPROS:R1) :OUTSTANDING PORT REQUEST FOR THE DRIVE 
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00767" 


014636 


007576 
057608 
177777 


wae 8 
016634 


100004 
015743 
025200 


00770e 


607704 
014662 


OL4eS4 


067704 


-4 


pa | uw 

La] ao 
Les) 
ee 
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a) &7-APR-76 16:34 PAGE S58 


STO: :BR IF YES - NO RESPONSE TO REGUEST 
81, OTUW : DATA TRANSFER UNCERWAY FOR THIS SRI 
Bo 4p. RP SYES=-CHECK "ROY" 

(SP)+ 

STO! BR IF “ROY"=0 

OPINT(RL) :INITIALIZING THE QRIVE ” 

1 :BR IF INIT PENDIN 

DPROS(R:) :BORT RE REQUEST PENDING 

BL, TIMER: RS) i570 TH THE TIMER 

PC, cre a HANDLE THE PARITY ERROR 
DPINT(RL} CLEAR THE INITIALIZE INDICATOR 
SRVSTAIRI) ise] UNIT OFEL INE 

#- 1, TIMER( RS) :$ TOP THE TIMER 

po AETRES :GET THE DPB ADDRESS 

Re TREGUEST IN QUELE ? 


STO9 F NOT 
abi TIS!BIT14, 16< R2) j INFORM THE USER DRIVE NOT QVAILASLE 


aT TIMER(R) :STOP THE TIMER 

DPROS:RI) : LEAR PORT REQUEST INCICATOR 
Po, GETREQ :GET DPB ADDR 

R :QUEUE ENTRY FOR DRIVE ” 


STOS NON 
@BITIS'BIT2, 16: Ra) iNFORN USER OF PORT REQUEST ESScS 


PC,EMPTYQ CLEAR THE QUEUE FOR THE DRIVE 
PC; SVRHL1 SAVE THE REGISTERS 

(SPi+,83 ;RESTORE R3 

(SP)+,R1 RESTORE Ri 

Pe :RETU 


READ A RHLL/RPOY’S. 6 REGISTER 


RO, RO. RP 60 READ A REGISTER 
RES. INDEX FR On SASE 
:ERRO OR RODRESS--PROCESS ERROR STARTING 


AT THIS ADDR 
CONTENTS OF REG. IS ON THE STACK 


NCPET RD.RP2  ;MAX. RETRYS ALL OWED 
(SP), -{SP) OR RETU 
RPADR, RO. ADR FORM THE DES TRED ADDRESS 


RO)+.RO.ADR ;USING THE SASE AND THE INDEX 
acFC)+, (PC)+ ee THE pee ep eae OF THE SPOS 


SRODRESS IS FOR 
0 :REG. CONTENTS PUT HERE 
RO.WRD.2:SP)  :RETURN IT TO THE USER 
RPADR.-:SP)  :PUT THE ADDRESS ON THE STACK 


mm i ne rm en ne | ee eee 
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BIT 


ACY! 27-APR-76 16:34 PAGE 59 
IVER 


fone a a OF RPCS2 
‘BR iF DRIVE NON-EXISTENT 
;READ RPCS! 

DID MCPE A 

SBRANCH IF YES 

ADJUST FOR RETURN 


;REPORT “MCPE” ERROR 
DATA TRANSFER UNDERWAY? 
:NO--BRANCH 


NO--BRANCH 
SYES=-CLEAN OFF THE STACK AND 


ERROR EXIT 
PE” BY SehOiNs A“1" TO “TRE” 


; CLEAR 
:POSITION BEFORE WRITING 
:FORM ADDRESS OF HIGH BYTE 


:WRITE THE ha BYTE OF RFCS! 
ADDRESS STORAGE 
EXCEEDED MAX. RETRYS 


;SRANCH IF NO 
:FATAL ERROR EXIT 


;QATR TO BE LOADED ON THE STACK 


: CALL " ROUT! NES 10 LOAC (WRITE) THE REG. 


; INDEX OF _THE REGISTER TO Se Rergee 
ADDRESS TO eM a TO ON AN ERROR 
ERROR FREE RETURN 


;MAX_RETRYS ALLCWED 

:SAVE THE WORD TO WRITE 

;ADJUST THE STACK 

£3 INDEX OT REGISTER TO BE WRITTEN 


v 
:1S_ THE COMMAND FOR DATA TRANSFERS? 


;YES--DON’T GET THE OLD ALS $ ALT, $ PSE 


‘NO=--COMBINE ALGSAI?. & PSEL ive 
: THE COMMAND BEFORE SENDING IT T 
THE RH11/RPO4 


3FORM THE nooness OF THE DISK REs. 
;LOAD THE DESIR 
:HORD TO WRITE QUES MERE 














oo 


oN SE TREE DRS SeaONE Zo Ze 


699° 
9 
0 
0 
4) 
5 
4) 
9 
0 
0 
o 
0 
Q 
0 
C 
0 
0 
Q 
0 


QOVOIOOVOOW 
-—-Ow 


.w0co Orin fF wrur-ODw NOMUI£G) 
COOXVIMVOOOOVOOHVOVOVOOVOVR0000U0000 
wm +: wn 


WLIW WII WWI WWIWIWWWIWOIIGIG 4 
O-+ 0 b= 0 = 0 a 
rorore 


» +0 0 = b= 8+ 6 -+ p-2 b= b= b= 9 b= = = bo 2 ho  -2 


0 0-= 0-2 9-2 b= b- 2 Bh - —  ( 


, ROHS 


SINGLE QUAL 


eae 


104412 


104413 


015000 
014638 


009010 


177778 
014636 


097704 
009910 
600814 


015269 
015260 


006230 


OL4E36 


015260 


o0c0Ce 
012074 


cocdee2 
000010 


COOO4E 
15260 


-6 HEAD ALIGNMENT PROGRAM MACY!! 27/655) 
PORT RH11’RPC4’S’6 DRIVER (REV 1.0) 


WORD 
M } 


WRT .AD: 


1$: 


D 
WRT.R2: . 


WRT.R3: MOV 


WRT.RY: TST 
WRT.RS: RTS 


sROUTINE TO 
: CALL 

: MOV 
; JSR 
SVRHLI: 


SAVREG 
T 


9 
RPADR. -(SP) 
#RECSS, 


(SP) 
ri Ves aisP)+ 
WRT .R3 


RO, RD. RP 


#61703, (SP)+ 
WRT. RY 


-2(RO!,1$ 
RO, 80. AP 


SAVE THE RH11/RPC4/S 6 


#OPBNUM, R2 
PC SVRHIL! 


Re 
: 
RPA 


re) he R4) 


(R2),R 


eH 
33, #RPDB 
es 


#B1T07,RPCS2(R4) 
2$ 


(R3)+ 


4$ 
mo. 


(SP)+. (R3)4 
33, wRPEC2 


27-APR-76 16:34 PAGE 60 


;ADSRESS IS FORMED HERE 


;BRANCH IF “PAR=0" 
PICKUP THE INDEX 
THE REG. 


INDEX 
: RETURN yy THIS ar ON re 


ONAN OFF 
;TAKE THE “PARITY SN WRITE” ERROR EXIT 


sEXIT 
ADJUST FOR ERROR FREE EXIT 


;0P8 POINTER TO R2 
;SAVE THE DRIVES REG’S 


; SAVE 
:BR IF 
;SELECT DRIVE 


3 GET be ERROR TABLE POINTER 
:EXIT IF so eater eS 
COUNTER § POI 
i REAC HE 


iF N 
; OR’ SET 


ET 
STORE. & RPOB AS ZEROES 
;READ THE Fee REGISTER 


;REGISTER 


ERROR RETURN ADDRESS 
;STORE THE REGISTER RoNTENTS 
THE END ? 


; REACHED 


:BR IF YE 

cFNCREMENT THE REGISTER INDEX 

;CONTINUE READING THE REGISTERS 

:PROCESS THE UR IAREL THLE PERITY ERRTR 


:RESTORE RO - 





R iF DRIVE NON-EXISTENT 
: CHECK FOR PARITY ERROR ON WRITE 


REGISTERS AS PER OPS+14 
RO - RS 

: BLEUE ENTRY FOR THE ORI‘ 
NONE 


D THE BUFFER REGISTER ” 








‘ 
. 
s 
we 


3 
1 
I 
: 
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1000 WIIW 0000) WI OI GIG) G00) G09 GIO) 600) 6 0) GI) GI 6 GI GI GI GI GI GI GI GI GI GC) GI I GI GI OI GIGI GI GI GIGIGIGIGIGIGI 
— & = 0-+ 0 0 b= b= 8 be 9 = 0 0 -* B00 0-2 0 0-2 B20 2 0-2 2 Fo = Fh * & 2 fob - 9 2 ff 2 ho fo he ho 0 
furututute 

Conde Ce 00 SOUP UTE COPU COLO UD “SOM UT oe LPO CO. 0) “BOP UT 2 Lone COC ED IOP ON oe Conese CeO U pO out 


SNINNOKOOR OM OOO UIUIUTIUMNUIUIONIUIUNU © A II WI WWOIWWitD 
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015324 
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0 = 0 0 bbb 0 0 bh he 
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RECY $6 HER 
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SINGLE DUAL PORT RH11 RPOY’S-& ORIVER (REV 1.0) 


000207 


non207 


ee f 


S4e 


OddodOooooOd 

0+ = 0 0 = 

UI 
uw “ 
Ro 


Oovoooo000ngd 


007704 
000010 


O4000C 


009100 
010003 


020001 


SET.IE: 


13: 
es: 


SCN 


SINPT: 


; QUEUE OUTPUT 


QOUTPT: 


RIS pc : RETURN 
: ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 
wh 
MOV sDRVNUM,P! 
ISR PC, SET. IE 
RETURN 
MOV RY. -(SP) 
MOV RPADR. RY 
MOV R1 RECS2(RY) 
MOV (R4), << SP) :READ RPCS 
gis 881714, (SP) :SET THE 
SWAB 3s SP?) :ADIUST F 
MOVE  sBITOS, (RY) :SET “IE™ 
QIT eSITle.8PCS2°R4) 31S “ 
5NE 1$ 
TST (SP)+ 
BR 2s 
MOVS = (SP)4, 184) :CLEAR “TRE” 
MOV 5P)+;R4 RESTO 
RTS C 
.BYTE :ORIVE 0 
“BYTE 2 DRIVE 1 
BYTE JQ DRIVE 2 
BYTE 9 :ORIVE 3 
"8YTe =O :ORIVE 4 
‘QYTE 9 :DRIVE 5 
QYTe 6 SORIVE & 
SYTE 9 : DRIVE. 7 
:QUEUE INPLT POINTERS 
WORD  QDRVO DRIVE C 
“WORD = QDRV1 -ORTVE | 
“WORD  QDRV2 :DRIVE 2 
.WORD  QODRV3 !DRIVE 3 
“WORD  QDRVY :ORIVE 4 
“WORD  QDRVS :DRIVE 5 
-WORD  QDRV6 :DRIVE & 
“WORD VW? :DRIVE ; 
POINTERS 
.WORD  QORVO :DRIVE 9 
“WORD © QORVI :DRIVE 1 
-WORD QDRVe :DRIVE 2 
WORD  QODRV3 :DRIVE 3 
WORD  QDRY4 :DRIVE 4 
WORD  QDRVS -ORIVE 5 
WORD  QORVE -ORIVE & 
WORD  QDRV7 :DRIVE 7 





QUEUE COUNT 
NT: Y 


27-APR-76 





: DRIVE NUMBER TO Rl 
:SET “IE” | 


;SAVE R4 
sPICKUP ADDRESS OF RPCSi 
SELECT DRIVE 


.YES--CLEAR “TRE” 
TCrEAN OFF THE STACK 


: RE RY 
;RETURN TO CALLER 








16:34 PAGE 61 


OF THE WORD FERC 





No 
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Qa 
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(209:0 0.010 0 D.0.0.0 0 ODDEN OOW ~9-9-9-9 9d 
POW SUE WU OD IO LUO ODEs IorU 


DCRIC-A, 


009 


QoO000000RO 


[oe [oe | oe | oe | oe | oe | oe | oe] 
= 0 ob po pe pe 
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RPO4’S/& HEAD ALIGNMENT PROGRAM MACY11 he a 27-APR-76 16:34 PAGE 62 


SINGLE DUAL PORT RH11“RPO4’S’6 DRIVER (REV 


AiSee2 


104412 
Ole 


005207 


105061 


015370 


000010 
G1S440 


900010 
015440 


035370 






SEG 0073 












QSTART: .WORD  QDRVO ;DRIVE O START ADDRESS zs 
QSTOP: .WORD QORV1 ;ORIVE 0 STOP ADDRESS & DRIVE 1 START ACDRESS 
.WORD  QDRV2 STOP DRIVE --START DRIVE = 
WORD OQDRV3 :STOP DRIVE 2--START ORIVE 3 
WORD  QORV4 :STOP DRIVE 3--START ORIVE 4 
WORD  QDRVS :STOP DRIVE 4--START DRIVE S 
WORD QDRV6 :STOP DRIVE S--START ORTVE 6 
WORD  QDRV7 STOP DRIVE &--START DRIVE 7 
WORD  QTERM :STOP DRIVE 7 
DRIVE REQUEST GUEUES 
QORVO: .BLKW 10 
QORVI: .BLKW 10 
QORV2: .BLKW 16 
QORV3: .BLKN 10 
QORV4: .BLKW 10 
QDRVS: .BLKW 10 
QORV6: .BLKW 10 
QORV7: .BLKW 10 
QTERM= 
sROUTINE TO CLEAR ALL OF THE REQUEST QUELIES 
;CALL 
: JSR PC, CLRQUE 
CLRQUE: SAVRES :SAVE RO - RS 
MOV #OCNT,R2 :ZERO THE QUEUE COUNTS 
CLR (Re)+ :ORIVES O 8 1 
CLR (Re)+ :DRIVES 2 & 3 
CLR (Re)+ :DRIVES 485 
CLR (Re DRIVES & 8 7 
MOV MOVE THE STARTING 
MOV IostaeT R1 ‘ADDRESS OF THE QUEUE INTO 
1$: MOV (RL)+, (Re)+ ?THE QUEUE INPUT POINTER 
155 
BNE 1$ 
MOV #8. ,R2 :MOVE THE STARTING RODRESS 
MOV weer har Rl :OF THE GUEUE INTO THE 
23: MOY (R1)+, (R2)+ :QUEUE OUTPUT POINTER 
DEC R3 
BNE 2 
RESREG :RESTORE RO - RS 
RTS . PC 
sEMPTY THE QUEUE SPECIFIED BY R1 
;CALL 
: MOV pRviun RI :DRIVE NUMBER TO R! 
: JSR EMPTY 
EMPTYG: CLRB  QCNT(R1? :CLEAR NUMBER OF ITEMS IN QUELE 


5 


3 


rtaereaesrereresiatys 


u 


uy o 


rh este 


NOOO oO0000°o 
+ UU 


RPO4/S/6 HEAD ALIGNMENT PROGRAM MACY! ec G55) 
SINGLE “DUAL PORT RH11/RPO4/S’6 DRIVER (REV | 


SS, 
Our 


S-onreo 
OC) — 0 Ch) 0 0 


oo 
oo 
OUI O—orm 
fu~Jfu- Or-~J 


030207 


105361 


06276! 


Cis490 915420 


009010 
015370 
915400 


015440 


015370 


015420 


015370 


015420 
00C00e 


27-APR-76 16:34 PAGE 63 SEQ CO74 
Giver «R1),gOuTPT RL? ;SET OUTPUT QUEUE POINTER=INPUT POINTER 


;ROUTINE TC PUT A REQUEST IN QUEUE 


OINTER 
STAT RD asTopcRi) linet 0 RESET THE POINTER 
QSTART(R1), QINPTIRI) : *YES~-RESET POINTER 


;ROUTINE TO GET THE “OPB™ rooness OF NEXT REQUEST IN QUEUE 


;ORIVE NUMBER TO Ri 
:GQ GE 


: T THE REQUEST 
:Re="DPB” ADDRESS OF THE REGUEST 
;Re=0 IF NO REQUEST IN QUEUE 


prow “CPB” POINTER FOR THIS ORIVE 
;RETURN TO USER 
" THE REQUEST FROM QUEUE 


Rl 
| emanates 


;ROUTINE TO “POP 


;DECREMENT QUEUE COUNT 









;ORIVE NUMBER 
ADDRESS OF PARAMETER BLOCK 
3 G0 PUT REQUEST IN QUEUE 

;RETURN HERE IF QUEUE IS FUL 

SRETURN HERE IF REQUEST IS Th QUEUE 


;1S QUEUE F 
BR IF YES- YOKE RETURN! 
INCREMENT QUEUE COUNT 


;PUT a REQUEST Ms QUEUE 
UPDATE iM omer 





; TAKE RETURN 2 
;RETURN TO USER 


















i1S THERE ANY REQUEST IN QUEUE? 
; NO---BRANCH 



























;ORIVE NUMBER TO Rl 
;CALL TO REMOVE REQUEST 
RE=ADDRESS OF DPS REMOVED 


;GET THE “DPB” POINTER 
UPDATE THE QUELE POINTER 


Fororururorarororare 
eae SHR RE ‘ 


OOO OOO VOCOVOVOHOVOO0000 
= 0 oo 
PCOK CON CKKTTrrrwn 
SENOS LVOT LUOe LMG 





C-A, RPO4’S’6 HEAD ALIGNMENT PROGRAM MACY11 27(6S5) 
SINGLE “DUAL PORT RH11/RPO4/S/’E DRIVER (REY 1.0) 


026161 O15420 015442 
CiS44O 015420 


000 
000 
009 
000 
009000 
001206 
000 
9c0 


009900 
0i6140 


009990 


009000 


QOUTPT(RI ),QSTOP(RI) 
QSTART(RI ), QOUTPT (RI) 


OOO OOOO KOOK0000000 
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;TIMe TO RESET THE POINTER? 
ANCH TO EXIT 

;YES--RESET THE POINTER 

;RETURN TO USER 


ff RERRRREAE REALE RARE AE REAE RARE RELA RARE LA LL AE LAE LAR RELF LE RELER EERE 


-SBTTL DATA PARAMETER BLOCK 
5p RRR ERE EEE EER ER ERER ERE ELES EERE EEE REEL EERE RE EEE RRR ERE 


;DRIVE NUMBER 

OFFSET VALUE OR FMT22, ECI, AND HCI 
; COMMAND 

;PSEL AND A17 AND Alb 

;WORD COUNT (MUST BE NEG) 


BUFFER ADDRESS OR 
REGISTER TABLE lll 
+ ADDRESS 0 


i PTRsT ReAae RN THOEX 
TRACK ADDRESS 0 
sLAST peetatee fnoex 


CYLINDER ADD 
ERROR TABL 


; POINTER 
:POINTS TO THE FIRST OF TWENTY 
; T IVER I 


F ZERO, REGISTERS 


ARE NOT SAVED. 
Srarle chron INDICATOR 
:BITIS = = ERROR OCCURRED 
;BITO7 = > D 
:BIT 14 ‘att 10 AND BITOS - BITC3 
INDICATE TYPE OF ERROR 


;STORE RPOY REGISTERS HERE 
;RPWC 














39 








MO-11-D2RIC-A, 
J¢.003 


337 bitsoe 
01$204 


1 
016206 


pre 
OtMoO 


Forororurororororururororore 
FEVER LVS 


Po 
mo 


ue? 


o 
fw 


POOOrrrrrre hae be b> Be B= be Dn bh = bb Fo bn pe Be pe pee 
AL 4 
£r 


e 
100000 
009000 


HEAD: 


HEADE: 


HEADYS: . 


RPO4/S’6& HEAD ALIGNMENT PROGRAM MACY11 27(655) 27-APR-76 16:34 PAGE 65 
DATA PARAMETER BLOCK 


CYL=1le 

STATUS=16 

ff RRRRERE AERA E EER ER AREER EE LAER LARA RRR RE ALLELE REEL ERE RELERE EEE 
.SBTTL HEAD CODE TABLE 


5 5 RRRRRRARAER AR RL ERE REE EERE KALLA LEER R ERE RRR EERERREE EEE EL LEA ERER 










SEQ 9076 





;DPB INDEX EQUATES 









;HEAD ADDRESSES FOR CYLINDERS 245 & 495 
2 

3 

4 

5 

6 

7 

10 

11 

le 

13 

14 

15 

16 

17 

20 

el 

e2 

100000 ; TABLE TERMINATOR 
;HEAD ADDRESSES FOR CYLS 800 & 008 
10. 

17. 

18. 

100000 

0 

| 

10. 

17. 

18. 

100000 ; TERMINATOR 

0 ;HEAD ADDRESSES FOR CYLINDERS 400 8 4 








eade. 


3390 
3331 


EE Pe ee ee ee ee ee ee ee eee Patt ata 
BREE tetetntn atte tan banat ee etch arctctcr irae ts 


9 
016312 


cRIC-A, RPOW/S/ 
HEAD C 


og0d2e 
016314 100000 


fa He 


Ee 
yy 


ONDOVOAOHNOOOOKOOOAXA00000 


0-20 20-0 — 0 0 20 0 0 0 = 0 0 O— 0 = 0 B= b= FO 0 = 8 OB 0 0 0 2 0 OO 0 Oo ee 


PRMRR ic cto naaiuvicuee teem erent 


OVOOO0000 


Ste atetetetetet tg orang rorges 


Cr) LUI) 


ONndMIMNoO000 


stetetetetste! 


Sa 


furururu 
20 +0-+0-+ 6-9-0 
in £ Wutue- CO 


Boon 
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-WORD 18. 
. WORD ~— 
- WOR 





. ihe 
“hie 100000 ; TERMINATOR 
5p RRRRERRRRRR EERE R EEE RR EER EE RRER ER ER ERED EE EEE ELER EERE EERE EES ER EF 


.S8TTL OFFSET CODE TABLES 
5 RRFRRRRREEE EE EEER ERE AAR ERE EER EREEA SEE AAEREE DER ERA ERE EER HEARS REE 






OF TBLE: | ;OFFSET TABLE FOR CYLINDER 496 
.BYTE 30 
"BYTE 27 
BYTE 2 

YIE 25 
-BYT 4 
"BYTE 83 
‘BYTE 22 
‘BYTE 
"BYTE 20 
‘BYTE 17 
BYTE 16 
-BYTE 2 
-BYTE 14 
‘BYTE 3 
‘BYTE 12 
‘evTe 
"BYTE 10 
y 7 
ie 
-BYT 4 
‘SYTE 3 
‘BYTE 2 
‘SYTE I 
-BYT 
-BYT 
BY 
.BY 203 
-BY e 


frurururururururu 


= 0 = 0 9 0 
NOU £ WTO 


atta 






“DrRro-8. 8924.5 
3 


B.'s Fst: 


wet? 
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OF TSL4: 
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“11-02RIC-A/ «CR «LF» 


~ 
~ 


DO? 
27-APR-76 
(LF) -MAINOE 


CR» 


Yil 27:655) 
Se 


~ 
os 


MESSAGES 


-ASCIT 
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ee 


1 sdRe 
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ALIS 
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WITH THE 
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oe 
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Cl) -MjCIC?) AF te Ea Qo 


SS ee reais 
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fy 
© 


a3e- 


tude 


£Wwo'tu 


a) 
+ 


Lo 





SLIGHMENT Paths *¢ 


NOT OCCUR WITH SOME ALIGNMENT PACKS. 


10 
ate 
*-- 


fi 


hee 


c 


2AL 


SPARE FAS 


£ 


oOo 


2 

Sie = Ne 
cereSen 
C90 


S222 


~-_ 


o-0-— 
Io” 
= | 


RELATEC INOEX ERROR, GROUND THE FOLLOWING PINS: «CR “L 


SUS VRAVS Leo 
2PREREE RPP 
eset cord 


© 


O03 (FUNCTION ‘+TENDEXER® 1) «CR <LED 


SBR 


PIN COWRIS ‘FU! 


DRIVE NOT AVAILABLE \ CR o«L 





/ENTER DRIVE NUMBER: 


> DRIVE NOT WRITE PR 


ee a es ee + ee es ee ee 







126 053195 O43111 VERIFY: .ASCIZ -VERIFY/<CR <LP><LP* 
O2003e OO0653! O0SUle 000 
0} 


ts 


/RLTGN*<CR>< LED LPS 


REY SG MEAD ALIGNMENT PROGRAM MACYL! 27(65S) 27-APR-7& 16:34 PAGE 7! 
MESSAGES 
320105 47516 920124 
lig, D5211) 929155 
B5i1a0 -O5211> o41505 
53 o4 906504 dosd12 
FP oorney O40 O4404D O4OSOS TOLRG: .ASCIZ ~ HEAD OUT OF RANGE. 
ere Ri-Bds 20104 Bese rs 020124 
3668 17855 943117 OS1040 O47101 
3653 517684 42507 
3: o17867 91 0012 020049 HEADER: .ASCII <CRO<LED’ TRK CENTER’ <CR><LE> 
3e72 B17E74 2 0940 820040 
3673 17702 820040 920040 052040 
3674 OI77IS O45S22e O41440 047105 
3675 (61771 D524 OcbS2e2 Sle / oe Kon a 
367% 9177 O49 20045 o425!5 SASCIZ. «© «MEAD so TYL CIN U INCHES) /<CR><LFD<LED 
37> 517730 O42151 Oed040 O54503 
36728 017736 OfD114 S44450 O2cl1s 
3673 017744 950:25 O47111 044153 
3680 O17752 051505 906451 Oosd12 
368: 517765 ~~ 
| ee 917761 101 O50 O43S11 MODE: .ASCIZ “A(LIGN), VERIFY), OR ECKERCISE) ? 
| 3684 O17766 o24si6 O20054 924136 
| 3685 917774 851105 O43111 D24S3! 
| 3686 520002 O20054 O51117 oye44o 
3587 020010 954050 661105 44503 
| 3688 S30ni6 542623 O20051 20977 
| 3689 p3005: alata 
| 3630 
} 
1 
j 


S205 1 C44514 ON7107 ALIGN: .ASCI 
we O2eS044 o0S0iS 900012 a 


2637 020950 054105 051105 O44503 EXER: .ASCIZ -EXERCISE’<CR><LF><iLP> 
| 3558 Sec0S cseSe3 O05C1S5 oocdle 
CeT064 Q 


81 930040 HOZERD: .ASCIZ “HEAD C SELECTED BY DEFAULT’ «CR «LPF «LF: 


y 4 
3753 20106 842040 643105 052501 
2704 GeCii4 O52114 O05C15 0000i¢ 
S70— 020122 OSHSO3 O44S14 4211S CYL24S: .ASCIZ CYLINDER 245 SELECTED BY DEFAULT CRS \LE SLED 
3707 520130 051105 31040 O32464 
3708 020136 951440 O46105 O4IS05 
3753 520144 042524 O2di04 Os4sd2 
32:7 GEbise Sec4O 043105 05250) 
3777 OEOiES Ss2ii4 O050i5 s00die 
ie eh 


&& OS4503 O44514 OM211E CYL496: .ASCIZ “CYLINDER 496 SELECTED BY DEFAULT: CR <LF «LFS 


me ne i ne ne ee | ne ee 


aad | 
ba) v 
weew 
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Were WOOL K Wein mt Mor 
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02046! 
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K TS POSITICNED AT CYLINDER 245-° 





POSITIONED AT CYLINDER 496 


LF> ENTER CYLINCER ADDRESS: 


CYLINDER AODRESS“<CR><LF> 


‘OR><LE><LE> “DONE < CRS <LP>«LE> 


“RH11 INTERRUPT 0 


a eee ee 


It) 
=e 
ow 


GMI) WIGITIWI WIGIG) 
cocococo cocococo Gco0oco 


TLITUe-- 8 & oo +00 + 0-8 


(9.000 NOUNS Guru 


1002 


021946 
02i0s4 


MESSAGES 


04311 


090 


090107 


053111 
042049 
051105 


053111 
040523 
OS1lee 


O40S05 


OS2116 


040505 
020117 
952517 
040440 


AL FPR 
Mr-MOO 
Or-e-029W) 
UND £0 


on00d 
MoU 
-£O-- 00 


CS0050 
002051 
051505 
920124 


042040 


051523 


020105 
CS2101 
047522 


029195 
042506 
051117 


020104 


o44514 


eMe: 


EM3: 


EM4: 


EMS: 


EME: 


EM:0: 


EM1]: 


EMle: 


EM13: 
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ASCIC 


-ASCIZ 


-ASCIZ 


ASCIZ 


-ASCIZ 


-ASCIZ 
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UNEXPECTED ATTENTION OCCLIRRED/ 


/MASSBUS PARITY ERROR (MCPE=1) / 


/MASSBUS PARITY ERRCR ‘PAR=1)- 


LUG CHANGE SIT SET/ 


/RH11 CION’T RESPOND TO 


“DRIVE OR DATA ERROR 


‘DRIVE 


UNSAFE ERROR. 


‘HEAD OUT OF ALIGNMENT “ 


“HEAD TOD FAR OUT OF ALIGNMENT 








Mo=11 
pease. 563 
3922 921132 47107 
3823 021140 — O00 
3654 
955 gi 123 
S Reitee Bes202 
3859 
tl 71 
es 
$532 551209 Oe2S02 
3835 Osis12 J44S20 
3834 021520 951122 
3532 02) 104 
353° B51582 oso4ud 
5839 Os!546 046311 
3835 O21546 00 
3646 
3841 


3842 dele47 lee 
3844 022254 053104 


3845 21562 d20040 
| 3848 981579 030061 
3847 51276 051105 
3848 021304 050122 
3848 021312 o20040 
3850 21320 020063 
| 3951 021326 051501 
3852 
3653 02133! 1 
| 3854 921336 ge0d40 
| 3855 021344 940440 
; 3956 021352 Oy0so4 
| 3887 
| 3853 921357 104 
' 3659 031364 o20040 
/ 3860 021372 040440 
' 3861 921400 d20040 
| 3862 Oe1405 O° 
3863 2l4i4 d00104 


3865 021416 O44122 


3875 Ceiste O425e0 


042515 


940520 
053111 
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020040 


EML4: 


EMIS: 


EMILE: 


OKI: 
DHe: 


DH3: 


DHS: 


DHS: 


DH10: 


me a a | ee 
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MESSAGES 


»ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





SES COsS 







‘SOFTWARE TIMEOUT’ 


“UNCORRECTABLE MASSBUS PARITY ERRCR’ 


“DRIVE UNAVAILABLE / 


/RPAS / 


‘DRIVE RPOS! PER! RPER2 PERS PAS’ 


‘ORIVE RES ADR CATA 


/ORIVE REG ADR avee BAD. 


“RH ADDRESS 


/ORIVE RPCS! RPCS2 RPOS! RAPER] PERS RFERI- 
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x 
3 
3 
3 
3 
33 
33 
33 
33 
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—-OWON@MUILCW 


fur 
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JEELSERIS BS 


~~ oe 
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furore fons 


uv 
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ot be $2 phe > +--+ & = bb 2 b= pp pe 
ouw 
bm he 
vo 


fufo furure forure 
oo 
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02i726 
021734 


02:7 
021744 


021750 


021751 
021754 
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0513 


091172 
001164 


099 


000 
000 


042520 


oo0c0s 
007536 
007544 
014662 
015102 
020099 
069900 
016140 
016154 
000000 
01632 


016132 
ococca 


009 
900 


031522 


O47 111 
000051 


040505 
041440 


O4eS26 


007540 
001170 


014564 


015100 


016150 


016200 


001294 


000800 


PROGRAM MACYL 


DHle: 


DH13: 


DH1E: 


Tl: 


OTe: 


DT3: 


DT4: 


OTs: 


DOT10: 


DTle: 


DT13: 


DT1E: 


OF 1: 
OF 2: 


-ASCII 


-ASCIZ 


-ASCIZ 


. EVEN 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 


- WORD 


-BYTE 
-BYTE 
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/ TRK CENTER/<CR><LF> 

/ HEAD CYL (IN U INCHES)/ 

/ HEAD CYL/ 

- /DRIVE/ 

ATTN,O 

DRIVE ,.RPERRS , RPERRS+2, RPERRS+4, RPERRS+6,ATTN,O 


DRIVE, RD.ADR,RD.WRD,O 

DRIVE, WRT.AD, WRT.WD,RD.WRD,O 

SRPADR, 0 

DRVSEL , REG, REG+RPCS2, REG+RPDS1 , REG+RPER! , REG+RPER2, REG*RPERS, 0 
SHEAD, DPB+CYL, PLUS. 

SHEAD ,DPB+CYL,0 


CRVSEL, 


Q 
0,0,9,0,0,0 
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DeRIC.009 MESSAGES 


SEQ 0087 


021757 0oc 00 000 OF3: -BYTE 9,9,0 





9 21762 909 909 000 OFY:  .BYTE 0,0,0,0 
$334 1765 
3936 O217%6 900 00 000 DFIO: .8YTE 0,9,0,0,0,0,0 
3937 0e!771 alata 900 990 
3338 021774 009 
3340 021775 001 001 001 OFl2: .BYTE 1,1,1 
3342 022000 001 901 OF13: .BYTE 1,1 
sau 
3645 , .SBTTL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11 
3 : THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 
394 OF THE RH11 IS SETUP FOR THE PROPER ADDRESS. 
3948 IT WILL ALSO READ THE ADORESS FROM THE TTY IF 
3949 : REQUIRED. 
3950 !NOTE: THIS ROUTINE DESTROYS RO-R4 
3951 : CALL 
3352 : 
3953 : JSR PC, BUSADR 
3354 : RETURN 
3956 022002 005737 ocole4e BUSADR: TST CHGADR s INPUT FROM TTY REQUESTED? 
3357 22006 901450 BEQ 7g :NO-= 
3958 022010 37 001242 CLR CHGADR :YES--CLEAR THE REQUEST FLAG 
3959 022014 012700 001264 18: MOV #SRPADR, RO ;EIRST ADDRESS 
3960 Occ020 104401 O2ecte TYPE MRPCS1 : "RP 
3961 Oec024 012046 MOV {RO)+,-<SP) ‘PRESENT RPCS1 ADDRESS 
392 Oe2026 104402 TYPOC : TYPE IT 
3963 022030 104401 o22224 TYPE, LINSP 2 SPACES 
3964 022034 104411 ROLIN GET THE ENTRY 
3965 022036 012601 MOV (SP)+,R1 ; ADDRESS OF ASCII TEXT 
3965 022040 004537 O22220 ISR RS, CK!NUM !CHECK THE NUMB 
2967 022044 O22064 33 ; CARR TAGE RETURN ONLY ENTERED 
3968 022046 022130 75 PERIOD ONLY ENTERED 
3969 Oe20S0 022014 1$  TCLEGAL INPUT 
| 3970 Q22052 See06o 2g : TERMINATED ITH A CARRIAGE RETURN 
| 3971 Ge20S4 022014 1$ * TERMINATED WITH A” 
3972 Oe20S6 022124 4g ; TERMINATED. WITH A "!" 
| 3973 O22060 O10e60 177776 23: MOV. —s-R2, -2 (RO) ;SAVE NEW RPCS1 
| 3974 922064 104401 022213 38: TYPE MRHVEC 2% 
3975 022070 012046 MOV tRO}+,-(SP) ‘PRESENT RH11 VECTOR ADDRESS ON THE STACK 
3976 022072 104402 TYPOC TYPE IT 
977 020074 104401 o22224 TYPE —_, LINSP :2 SPACES 
978 O22100 104411 RDLIN ‘READ THE ENTRY 
| 3979 O22102 012601 MOV tia RI ASCII TEXT ADDRESS 
| 3980 O22104 004537 022230 JSR RS, CK" NUM :CHECK THE NUMBER 
3981 Dee119 022130 75 ; CARRIAGE RETURN ONLY ENTERED 
3982 Oecl12 022130 75 :PERIOD ONLY ENTERED 
| 3983 22114 O22064 33 ILLEGAL INPUT 
L e 
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MO-11-DERIC-A, 
DZRIC.00 BUSADR - GET SUS ADDRESS AND VECTOR ADDRESS FOR RH11 


SEGUANNARSSANONS 
Raa UME it 


a$R 

R1 ERRVEC 
#SRPADR 
#RPADR Ay 
(RO)+, (R1)+ 
(RO)+,(R1L)+ 
PC 


R1, ERRVEC 
(SP)+, (SP + 


is 


: .ASCIZ @RPCS1 = a 
: .ASCIZ @RHVEC = a 
-ASCIZ avd a 


CHECK NUMBER (OCTA 
: THIS ROUTINE CHECKS AN ASCIZ STRING. FOR LEGAL CHARACTERS 
7 AN Apts AN OCTAL NUMBER IN Re 


#ADR,R1 


Re 
RS,CK.CHR 


#4,RS 
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;FIRST ADDRESS OF WHERE TO PUT THEM 


; inp NLY ENTERE Re = 0 
Pe CHARACTER IN THE INPUT STRING 
; ENTERE @ = NUMBER 


; NUMBER 
;"PERIOD” -- R2 = NUMBER 


;CHECK 0 E 
; ILLEGAL EHARACTER 
; CARRIAGE RETURN 


Dic! 
sDIGI 






SEQ cces 





; TERMINATED WITH RIAGE RETURN 
; TERMINATED wT A 


cA 
STERMINATED WITH A ™: 


“S35 


:SETUP F 

s CHECK FOR R Al 

RESTORE ERROR VECTOR 

iFIRST ADDRESS OF NEW PARAMETERS 


;BUS_AD 

VECTOR ADDRESS 

; RETURN 

; RESTORE one VECTOR 
CLEAN OFF THE STACK 


; REPORT OF HE ERROR 
sASK FOR BUS ADDRESS 


























3 ROORE SS OF ASCIZ STRING 
X_SIZE_OF INPUT NUMBER 





CONNER -- Re = 





7 SAVE RY 












’ 


“4 


ae 
EMENT RETURN PAST “CR” AND “PERIOD” ONLY RETURNS 










MO-11-D2RIC-A, 
DZRJC.00 

































4081 022370 
82 






le 
4088 Oee414 





ee Re 
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CK.NUM - CHECK NUMBER (OCTAL) 








;THIS ROUTINE IS USED TO 
sASCII I 


HARACTER IS A DIGIT 


MOV 


JSR 
RETURN1 
RETURNe 


#ADR,R1 
RS, CK. OCT 


(R1),#°0 


1 
(R1),#'7 
1$ 


;THIS ROUTINE IS USED TO CHECK AN ASCII prem’ TER 
AND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9 
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;FOR THE OCTAL NUMBER IN R3 
DON’T LET IT GET TO BIG 


CK ONE CHARACTER 


™m 
© 
2 
Q 
x 
»D 
ys) 
3 
o 
m 
az 


Mog & sarmm 


8-9 
* FOLLOW THE “PERIOD” 


DwDe-~ 


ER D 
SF to THE RE TUR INDEX 
RIE vals TOO LARGE ? 


BBS SERENE. « *SH> 
49 oe 
te 2885 8 


aw 
mmn 


RENENT THE pat ADDRESS 


VALU 
CL EAN OFF THE STACK 
RE R3 
TRESTORE Ri 
IGET RETURN ADDRESS 
: RETURN a 
HECK IF 
SETHEEN © AND 7. 


5 ApoE OF O11 TER 
cH BRACTER IS NOT ge ue 0-7 
TER IS IN Re AS A 


LESS THAN ZERO? 
:GREATER THAN SEVEN? 
:YES == BRANCH 


;ADJUST FOR RETURN 





Te * iy HEAD ALIGNMENT PROGRAM MACYL! 27(655) 
K.NUM - CHECK NUMBER (OCTAL) 


. 
a 
. 
’ 
. 
* 
7 
’ 
. 
* 
. 
’ 


2a 
9 


ttt A SS A A ot DS SD SSS fa A 
e SRE ER EEE RT SS SH Hemme mmm me — SR RSIS 
Rito est tip iAtitete dt petit Mth niet Mit eT MTR eter bet att ptat thet of 
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#ADR, R1 sADDRESS OF ASCII CHARACTER 
RS, CK. DEC ; CHECK THE CHARACTE 
‘NOT BETWEEN 0 AND 5 
iB TWEEN 0 g 
‘Ro = DIGIT 
(R1), #0 ;LESS THAN ZERO? 
1 YES BRANCH 
(R1),#°9 3G ATER. THAN NINE? 
“YES -- BRANCH 
(R1),R2 :GET THE CHARACTER 
#’°0,R2 ‘STRIP AWAY THE ASCII 
Reis SONS FOR RETURN 


FeCK AN ASCII CHARACTER TO 


;ADDRESS OF ASCII CHARACTER 


RS aa :CHECK CHARACTER 
ADRI ‘UNKNOWN CHARACTER 
ADRe ; CARRIAGE RETURN ‘ (R1)=ADR+1 
ADRS :COMMA # (RI) =ADRs 
DRY ‘PERIOD # RI) -AORt| 
ADRS :DIGIT BETWEEN O ?. 
DR6 :DIGIT BETWEEN 8 AND 9. 
:Re = DIGIT # (R1)=ADR+! 
(RL) ; "CARRIAGE RETURN"? 
3YES -- BRANCH 
(R1), 8", :*cOMMA”? 
2 :YES -- BRANCH 
(Rl), 8’. S“BERTOD™? 
sYES -- BR 
RS, CK.DEC "DIGIT"? 
RS. CK.OCT OCT 
(RS)+ ‘DIGIT BETWEEN 9-9 
RS)+ sDIGHT BETWEEN Q-7 
i+ : 0D 


:CARRIAGE RETURN 
:MOVE POINTER TO NEXT CHARACTER 
: UNKNOWN MHBRACTER 


















O7b2 
TF 
asi 
aT2 
3091 aln IT 
ah : i s arg 
ae = OAOms) SIT INO ! 
a3 = oop i Bi! 
gy Bat . H Byor 
= ' a 
“3 TOs : ef o 
ze Ey: Q 0", Ba 
es ue 4 i, ri 
Ets ? cs EkSWR Bek leess 
ae aE ch. ott ag toe? 
He ey 4¢ ti pri 021431 
ees =i aa ae Suro bess 
se Be eee ge ie ie - Site 
a OEP oat aa: Be Ee 
eK Dd BT xi S OM Bg ig DPR = aoe H 
1 xhes ou s rede DH16 95 RQ 02575 
<=? : > 762 a = 100 76 SRVOUE 
| Fe a asi 7o6 OL 23 DRY orb. 
xi 3s oF4 gt ? CPINT. A fe PR 1 
Ee, re HL A; Paver ee 154 = pono 
ES eee Gein Ra ae ie 
Bae $3131 reeie SSatit re : By Sut 
i sere evel ra v! S el ¢ 193 
Bea. et aot ee He as BY els 
| EEEss BSréue ae 345 Ww fies aa ie RSE ue 
‘Be Bie He * Bie prec ota pe . dies 
baa ce Bs uae ie 
| B¥an -« ARE = T 1674 M $s EXT = 0100 
a Sie ae fe es 
=523 mi 9 Bo = NoonS oEIREO_ B16034 
ee Enis aa Fi20 = ponsen noe Sobre 
a ion, Be FS: Sol yon. i 
a5A3 Ravets 009 + ee TR: 
rate mH ° oe cere ° se0cbs thn ce BOS 0 
: a -_ oer ee aons8h - 
. ao fem = p09408 ie “ atta 
= 3oos0 CRC = A318 ET = 00 
sf ARat HEAD 96190 Ix 
= Betas f Flees 
RaSeaR a 
So ieee 
REST EA 
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a 
ee ee ee ne RES FREY REDE Cer RR AN RE RR ET EE 








SYMBOL 
LE. = 900012 LINSP 922224 
ee’ = AN 
RANPOS a5 ik 
4 2 + r 
MPE- = 900403 MeO = go0ve 
= ; = 
mE = a5 555 migRCT Sed 
Sie HB 
Series || ee a 
‘ = = 
er eoe = NE Q 
BAR Tees Ser pocseo 
. ? = 
eS Pay = De1eee pre = S000 
ers PKB 1252 pec 01684 
pL = 020 PLUS 1204 
= baa = So0ec6 pes : 
ee =: s 1} = 
Pa EE reoaar PSEL = se 
oe tere PLRVEC= 000024 QcNT. 01537 
0kv1 01 soRVe 015522 QORV3 91554 
Sraves S156 gees O15Ee8 av? O1E4 
SourPr 5764s8 QevART S1ea4 d570P —O1S44 
Baagon_ Bovey: RaW. = og0080 ROCHR = 109410 
i? a Oo 7, Soe s 
Sk Re RTaeSe DORP1 O14 ; Bb RP2” S1S0h0 
ROLY SIS075 "WROD | OL4EES RECAL = 900107 
Reis DO51}9 RESREG= 1044! RESVEC= 000019 
RNOP = 00010; RFEOR 907704 RAS = 000 
Reta = 500034 RCC = D009 RPCS1 = 000000 
ReSR = D000. RPDS = 000022 RPOS1 = OO0012 
| RPECL = RPEC2 = 000046 RPERRS 907 
| RPERE = 500540 RPERS = 000942 RPINIT 007722 
| RPMR = O0ST24 RPOF = 900032 RPSN = 000 
RPVec 507706 we = 000002 ReoY = 010472 
| RO =000900 1 200000! Re =%000002 
Bee eS RE s.00000 Ré —- =000006 
‘Savers DO7E4s SAVREG= 10441 C Olerre 
| 05 = 651000 cll 01361 S612 013700 
| 552° = $56256 £20 = 002000 S$3 013036 
'S (OT 3054 Se 3244 SBA 013354 
(55 =. 3860 SEARCH= 000131 Sec = 090010 
‘SEEKRS | SO7ENG SEKCNT 001240 se ORVs 000146 
| SET.1E Ois316 SINCNG OClede Sk = Q40000 
| Secor So7b20 SAVELK O04256 STACK = 001109 
(ETeRT: «501468 ETART2 OCO1464 STATUS= O00018 
to ° (O14252 sto; iNe32 ste 914930 
S732 4524 S106 =: 914532 570 14570 
ie WE Scie ST.CLK  OOMII4 ST.LCL 04232 
Pa ee a ee 
Ect = Doscee Ets = GEpSHe Side = s0e:00 











ry 

TYPOS = : 

! = B 

“ak : pth — 

+ = ot 

WOMKD = $1 ~ 

ene ana Ha 

ii. fF " 

ser RS BtEt Ss WAT RE StETSE 

WR = OOO4OO autoe 901124 

$25DAT 511 : C este 
. Hetty 1185 Ole pre7e3 

\ ret «OOSs4e PPLAx BeTiiE 

a nn ee Ee ie 
SoDAT SOLIS air poe les Sead. 01198 
+ ele 3iShum 92734 SIDERE Satits 
Sore, Read SMSWR © O70! SOCNT 005936 
$<MZ0E ane SPASS tte SRAND 607034 
SROTHR 50643 SROLIN 06524 SRESRE SO7414 
READR Bhi >ea RPYEC Olek SSETUP= 000145 
St A cee RE Stic Gibees 
if2! = 8 ‘ ‘ 
O3ss74 ie Rei ies eae s pats 
Teas BALise TPFLG 861157 TRAP 7452 
TERPS DO7G74 RP = 000014 $TSTNM 901102 
TT7tN BRET Tyeos Sosad2 ‘PE 04674 STYPES 506044 
ype ARES! Stvese «Bde 746 §TyPON O0S154 Tress BC5114 
arte. BREE "Bessie a 


ln oe 
we 








“DoRIoea, SEC4-S5 & < ALIGNMENT PROGRAM ACYL! 27/655! 27-APR-76 16:34 PAGE 32 
D SYMSOL TAS, 
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ERRORS CETECTED: 2 
sCZRICG CZRIC/SOL/LIME/NL: MC:MD: CNOSRPOHSE.O10,02R50.009 
lLn-Time: 74.51 5 SEccNCS 


Sy 
~AE USES: 393k 
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cooler runting 13 nds, 83 KC dis ds, 0 tes, & nted 
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